home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / devnag.zip / DNCHARS.MF < prev    next >
Text File  |  1991-05-09  |  111KB  |  4,041 lines
  1. %    DNCHARS.MF
  2. %    Metafont source file of the Devanagari font
  3. %
  4. %    Copyright (C) 1991  University of Groningen, The Netherlands
  5. %
  6. %    Author:   Frans J. Velthuis
  7. %    Internet: velthuis@rc.rug.nl
  8. %    Bitnet:   velthuis@hgrrug5
  9. %
  10. %    This program is free software; you can redistribute it and/or modify
  11. %    it under the terms of the GNU General Public License as published by
  12. %    the Free Software Foundation; either version 1, or (at your option)
  13. %    any later version.
  14. %
  15. %    This program is distributed in the hope that it will be useful,
  16. %    but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. %    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. %    GNU General Public License for more details.
  19. %
  20. %    You should have received a copy of the GNU General Public License
  21. %    along with this program; if not, write to the Free Software
  22. %    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  23. %
  24. beginchar("a",1.52twd#+brm#,ht#,0); "front-a";
  25.   path p; path q;
  26.   awd = 1.6twd-rm;
  27.   aframe;
  28.   z5=(1/2penwd,.90h);
  29.   z6=(.76awd,.85h);
  30.   z7=(.32awd,.57h);
  31.   p = z5{curl0}..tension1.2..z6..tension1.2..{curl0.3}z7;
  32.   z8= point 1.6 of p;
  33.   z9 = (.54awd,.15h);
  34.   z10 = (1/2penwd,.50h);
  35.   q = z8..z9{left}..{curl0}z10;
  36.   z11= point 0.40 of q;
  37.   z12= (w-brm,y11+0.1h);
  38.   draw p; draw q;
  39.   draw z11{right}..z12;
  40. endchar;
  41. beginchar("A",2rm#,ht#,0); "A";
  42.     frame;
  43. endchar;
  44. beginchar("i",13/17twd#+rm#+penwd#,ht#,0); "front-i";
  45. % this shape is used for several other characters !!!!
  46.   pickup frame_pen;
  47.   z1=(0,h); z2=(w,h); z3=(w-rm-penwd,h);
  48.   z4=(x3,.74h); z5=(1/2penwd,.6h);
  49.   z6=(x3+1/2penwd,.37h);
  50.   z7=(1/2x3,1/7h);
  51.   z9=(penwd,3/14h);
  52.   z8=(x3+penwd,-1/7h);
  53.   draw z1--z2; draw z3--z4;
  54.   draw z4{left}..z5{down}..z6{down}..z7{left}..z9{dir40}..{curl0}z8;
  55. endchar;
  56. beginchar("I",13/17twd#+rm#+penwd#,ht#,0); "front-I";
  57.   pickup frame_pen;
  58.   z1=(0,h); z2=(w,h); 
  59.   z3=(w-rm-penwd,h);
  60.   z4=(x3,.74h); z5=(1/2penwd,.6h);
  61.   z6=(x3+1/2penwd,.37h);
  62.   z7=(1/2x3,1/7h);
  63.   z9=(penwd,3/14h);
  64.   z8=(x3+penwd,-1/7h);
  65.   draw z1--z2; draw z3--z4;
  66.   draw z4{left}..z5{down}..z6{down}..z7{left}..z9{dir40}..{curl0}z8;
  67.   z10=(x3,1.5h-1/2penwd);
  68.   z11=(x3+.17h,1.35h);
  69.   z12=(x3-1/2penwd,y3+penwd);
  70.   draw z12..z10{right}..z11;
  71. endchar;
  72. beginchar("E",2rm#,1.5ht#,0); "i";
  73.     frame;
  74.     z5=(x3,1.35ht);
  75.     z6=(w-.5rm+.6twd,1.35ht);
  76.     x7=.3[x5,x6]; y7=1.5ht;
  77.     draw z3--z5{up}..z7{right}..{curl0}z6;
  78. endchar;
  79. beginchar("F",2rm#,1.5ht#,0); "I";
  80.     frame; z5=(-1.5rm-penwd,1.25ht);
  81.     z6=(1/2x5,1.5ht);
  82.     draw z3{curl0}..{left}z6...z5;
  83. endchar;
  84. beginchar("u",1.07twd#+rm#,ht#,0); "front-u";
  85.     pickup frame_pen;
  86.      z1=(0,h); z2=(w,h);
  87.     lm:=w-rm;
  88.     z3=(.84lm,h); z4=(.4lm,.55h);
  89.     z5=(.64lm,y4);
  90.     z6=(x5,1/2penwd);
  91.     z7=(1/2penwd,1/2h);
  92.     draw z1--z2;
  93.     draw z4--z5{right}..tension1.1..z3;
  94.     draw z5..z6{left}..{curl.4}z7;
  95. endchar;
  96. beginchar("U",1.7twd#+rm#,ht#,0); "front-U";
  97. % depends on definition of u
  98.     path p;
  99.     uwd=1.07twd;
  100.     pickup frame_pen;
  101.     z1=(0,h); z2=(w,h);
  102.     z3=(.84uwd,h); z4=(.4uwd,.55h);
  103.     z5=(.64uwd,y4);
  104.     z6=(x5,1/2penwd);
  105.     z7=(1/2penwd,1/2h);
  106.     draw z1--z2;
  107.     draw z4--z5{right}..tension1.1..z3;
  108.     p= z5..z6{left}..{curl.4}z7;
  109.     draw p;
  110.     z8= point .5 of p;
  111.     z10=(w-rm,y8);
  112.     z9=(1/2[x8,x10],1.7y8);
  113.     z11=(3/4[x8,x10],1/2penwd);
  114.     draw z8..z9{right}..z10{down}..tension1.1..{curl0}z11;
  115. endchar;
  116. beginchar(0,0,ht#,0); "sub-u";
  117.     pickup sub_pen;
  118.     z1= (-1/4uwidth,mb-(penwd+1/8uwidth));
  119.     z2= (0,mb-penwd);
  120.     z3= (1/4uwidth,mb-(penwd+1/4uwidth));
  121.     z4= (-3/4uwidth,mb-penwd);
  122.     draw z1..z2{right}..z3{down}..tension1.1..{curl0}z4;
  123. endchar;
  124. beginchar(1,0,ht#,0); "sub-U";
  125.     pickup sub_pen;
  126.     z1= (0,mb-(penwd+3/8uwidth));
  127.     lft z2= (-1/2uwidth,mb-(penwd+1/8uwidth));
  128.     z3= (0,mb-penwd);
  129.     z4= (1/2uwidth,mb-(penwd+1/2uwidth));
  130.     draw z1..tension1.2..z2..z3..{curl0}z4;
  131. endsav;
  132. beginchar(2,0,ht#,0); "sub.r";
  133.     pickup sub_pen;
  134.     z1=(2/14uwidth,mb-penwd);
  135.     z2=(-9/28uwidth,mb-(penwd+3/14uwidth));
  136.     z3=(9/28uwidth,mb-(penwd+3/7uwidth));
  137.     draw z1{left}..tension1.2..z2{down}..tension1.2..{curl.2}z3;
  138. endchar;
  139. beginchar("e",twd#+1.5rm#,ht#,0); "e";
  140.     pickup frame_pen;
  141.     z1=(0,h); z2=(w,h);
  142.     x3=good.x penwd; y3=h;
  143.     x4=good.x w-1.5rm; y4=h;
  144.     z5=(x3,.28h); z6=(x4,.48h);
  145.     z7=(w-.5rm-penwd,-.22h);
  146.     z8=(x7-0.1h,y7-0.2h);
  147.     z9=(x6-1/6h,y6-1/6h);
  148.     draw z1--z2; draw z3--z5---z7..z8;
  149.     draw z4---z6..z9;
  150. endchar;
  151. beginchar(3,.9twd#+brm#,1.5ht#,0); "sup-e";
  152.     pickup frame_pen;
  153.     z1=(w-brm,ht+penwd);
  154.     z2=(0,1.5ht);
  155.     draw z1{curl.5}..{left}z2;
  156. endchar;
  157. beginchar("{",.9twd#+brm#,1.5ht#,0); "sup-ai";
  158.     pickup frame_pen;
  159.     z1=(w-brm,ht+penwd);
  160.     z2=(0,1.35ht);
  161.     z3=(penwd,1.55ht);
  162.     draw z1{curl.5}..{left}z2;
  163.     draw z1{curl.5}..{left}z3;
  164. endchar;
  165. beginchar("o",2rm#,1.5ht#,0); "o";
  166.     frame;
  167.     z5=(.5rm-.9twd,1.5ht);
  168.     draw z3{curl.5}..{left}z5;
  169. endchar;
  170. beginchar("O",2rm#,1.5ht#,0); "au";
  171.     frame;
  172.     z5=(.5rm-.9twd,1.35ht);
  173.     z6=(.5rm-.9twd+penwd,1.55ht);
  174.     draw z3..{left}z5;
  175.     draw z3..{left}z6;
  176. endchar;
  177. beginchar("k",23/16twd#+rm#,ht#,0); "k";
  178.     italcorr rm#+.65twd#;
  179.     pickup frame_pen;
  180.     lm:=w-rm;
  181.     z1=(0,h); z2=(w,h); x3=good.x .55lm; y3=h;
  182.     z4=(x3,0); draw z1--z2; draw z3--z4;
  183.     z5=(x3,.6h);
  184.     z6=(1/2penwd,.55h);
  185.     z7=(x3,.5h);
  186.     z8=(lm,.5h);
  187.     z9=(.94lm,.1h);
  188.     draw z5..tension1.3..z6{down}..tension1.3..z7;
  189.     draw z7{curl.5}..z8{down}..tension1.3..z9;
  190. endchar;
  191. beginchar("K",1.36twd#+brm#,ht#,0); "kh";
  192.     italcorr brm#;
  193.     frame; path p;
  194. % uses definition of r and k;
  195.     z5=(1/2penwd,.65h);
  196.     z6=(.8twd,0);
  197.     p= z5{down}..tension1.1..{curl0}z6;
  198.     z7=point .2 of p;
  199.     z8= (.424twd,h);
  200.     draw p;
  201.     draw z8{curl0}..tension1.1..{left}z7;
  202.     z9=(w-brm,.55h);
  203.     z10=(w-brm-.55(23/16twd)+1/2penwd,.5h);
  204.     z11=(w-brm,.45h);
  205.     draw z9..tension1.3..z10{down}..tension1.3..z11;
  206. endchar;
  207. beginchar("g",1.1twd#+brm#,ht#,0); "g";
  208.   italcorr brm#; path p;
  209.   frame; z5=(.25(w-brm),h);
  210.   z6=(x5,.3h);
  211.   z7=2/3[z5,z6];
  212.   z8=z7 shifted (.1(w-brm),0);
  213.   z9= (1/2penwd,y6+.08h);
  214.   p = z5..z8{down}..z6{left}..z9{up};
  215.   z10 = point 2.4 of p;
  216.   draw p..z10;
  217. endchar;
  218. beginchar("c",1.2twd#+brm#,ht#,0); "c";
  219.   italcorr brm#;
  220.   frame; y5 = good.y .65h; x5 = 1/2penwd;
  221.   z6 = (w-brm-penwd,y5);
  222.   z9 = (.44x3,y5);
  223.   z7 = (.55x3,.3h);
  224.   z8 = (w-brm,.4h);
  225.   draw z5--z6; draw z9{curl.5}..z7{right}..z8;
  226. endchar;
  227. beginchar("C",1.8twd#+rm#,ht#,0); "ch";
  228.     italcorr rm#+.9twd#;
  229.     lm:=w-rm; path p;
  230.     pickup frame_pen;
  231.     z1=(0,h); z2=(w,h);
  232.     draw z1--z2;
  233.     x3=good.x .75lm; y3=h; z4=(x3,.72h);
  234.     z5=(.9lm,-.2h); z6=(lm,-penwd);
  235.     z7=(.38lm,0); z8=(.5lm,.45h);
  236.     z12=(x3,.32h);
  237.     draw z3--z4;
  238.     p= z5---z6..z12..tension.9..z4{right}..z7{left}..tension.9..{right}z8;
  239.     draw p;
  240.     z9=point 4.75 of p;
  241.     z10=(.8x8,.75h);
  242.     z11= (1/2penwd,.7[y9,y10]);
  243.     draw z9..tension1.4..z11{up}..tension1.3..{curl0}z10;
  244. endchar;
  245. beginchar("j",1.4twd#+brm#,ht#,0); "j";
  246.     italcorr brm#;
  247.     frame;
  248.     y5 = good.y .66h; x5 = 1/2penwd;
  249.     z7 = (.45x3,y5);
  250.     z8 = (w-brm,y5);
  251.     y6 = good.y .17h; x6 = .52x3;
  252.     draw z5{curl.5}..tension1.2..z6{right}..{curl0}z7--z8;
  253. endchar;
  254. beginchar(26,1.2twd#+brm#,ht#,0); "'n";
  255.     italcorr brm#;
  256.     frame;
  257.     z5=(.16(w-brm),.7h);
  258.     z6=(.5(w-brm),.5h);
  259.     z7=(.22(w-brm),.2h);
  260.     z8=(w-brm,y6);
  261.     z9=(1/2penwd,.4h);
  262.     draw z5..z6{down}..z7..{curl.2}z9;
  263.     draw z6{dir-20}..z8;
  264. endchar;
  265. beginchar("V",1.15twd#+rm#,ht#,0); ".t";
  266.     italcorr rm#+.5twd#;
  267.     pickup frame_pen;
  268.     z1=(0,h); z2=(w,h);
  269.     draw z1--z2;
  270.     lm := w-rm;
  271.     x3=good.x .7lm; y3=h;
  272.     z4=(x3,.66h);
  273.     z6=(.55lm,.1h);
  274.     z7=(lm,.2h);
  275.     draw z3--z4;
  276.     vardef dwn(expr y) = xpart direction 1 of (z4{curl0}..(1/2penwd,y)
  277.     ..z6{right}..{curl0}z7) < 0 enddef;
  278.     z55=(1/2penwd,solve dwn(y4,y6));
  279.     draw z4{curl0}..z55..z6{right}..{curl0}z7;
  280. endchar;
  281. beginchar("W",1.15twd#+rm#,ht#,0); ".th";
  282.     italcorr rm#+.5twd#;
  283.     pickup frame_pen;
  284.     z1=(0,h); z2=(w,h);
  285.     draw z1--z2;
  286.     lm:= w-rm;
  287.     x3=good.x .75lm; y3=h;
  288.     z4=(x3,.66h);
  289.     z6=(.55lm,.1h);
  290.     z7=(lm,y5);
  291.     z8=(x4+penwd,y4-penwd);
  292.     draw z3--z4;
  293.     vardef dwn(expr y) = xpart direction 1 of (z4{curl0}..(1/2penwd,y)
  294.     ..{right}z6) < 0 enddef;
  295.     z5 = (1/2penwd,solve dwn(y4,y6));
  296.     draw z4{curl0}..z5..z6{right}..z7{up}..{curl0}z8;
  297. endchar;
  298. beginchar("Z",1.1twd#+brm#,ht#,0); ".n";
  299.     italcorr brm#;
  300.     frame;
  301.     x5=good.x 1/2penwd; y5=h;
  302.     z6=(x5,.55h);
  303.     z7=(1/2[x5,x8],.3h);
  304.     x8=good.x .65twd; y8=y6;
  305.     z9=(x8,h);
  306.     draw z5---z6..z7{right}..z8---z9;
  307. endchar;
  308. beginchar("t",twd#+brm#, ht#, 0); "t" ;
  309.   italcorr brm#;
  310.   frame; y5 = good.y 2/3h; x5 = x3;
  311.   z6 = (0.35x3,y5); z7 = (0.55x3,0);
  312.   draw z5---z6..{curl0}z7;
  313. endchar;
  314. beginchar("T",1.1twd#+brm#,ht#,0); "th";
  315.     italcorr brm#;
  316.     tframe; path p;
  317.     z5=(1/2penwd,.55h);
  318.     z6=(x3,.55h);
  319.     z7=(.25x3,h);
  320.     draw z5{dir-70}..tension.95..z6;
  321.     p=z5{right}..{left}z7;
  322.     z8=point .4 of p;
  323.     draw p..tension.95..{curl.2}z8;
  324. endchar;
  325. beginchar("d",5/6twd#+brm#,ht#,-.14ht#); "d";
  326.     italcorr brm#+.15twd#;
  327.     pickup frame_pen;
  328.     z1=(0,h); z2=(w,h);
  329.     x3=good.x w-brm; y3=h;
  330.     z4=(x3,.72h);
  331.     z5=(1/2penwd,.53h);
  332.     z6=(x3,0.27h);
  333.     z7= z6 + (.3thick*(dir(rot+90)));
  334.     y8=0; z8=z7+whatever*dir305;
  335.     draw z1--z2; draw z3--z4;
  336.     draw z4{left}..tension.9..{down}z5..tension.9 and 1.1..{dir30}z6;
  337.     pickup penrazor scaled subthick;
  338.     draw z7--z8;
  339.     fill ((0,0)--(quartercircle rotated -45 & halfcircle rotated 45)--cycle)
  340.     scaled (1.6*thick) shifted (z6 + .3thick*(dir rot));
  341. endchar;
  342. beginchar("D",1.1twd#+brm#,ht#,0); "dh";
  343.     italcorr brm#;
  344.     path p;
  345.     tframe;
  346.     z5=(x3,.5h);
  347.     z6=(.65x3,.65h);
  348.     z10=(.18x3,.5h);
  349.     p=z5{curl0}..z10{up}...{right}z6;
  350.     draw p;
  351.     z7= point 1.7 of p;
  352.     z8=(.26x3,h);
  353.     vardef yup(expr y)= xpart direction 1 of (z7{curl0}..(1/2penwd,y)..{right}z
  354. 8) < 0
  355.     enddef;
  356.     z9=(1/2penwd,solve yup(y7,y8));
  357.     draw z7{curl0}..z9..{right}z8;
  358. endchar;
  359. beginchar("J",1.45twd#+brm#,ht#,0); "jh";
  360.     italcorr brm#;
  361.     path p; frame;
  362. % uses definition of i !!!
  363.     x5=good.x 13/17twd; y5=h;
  364.     z6=(x5,.74h);
  365.     z7=(1/2penwd,.6h);
  366.     z8=(x5+1/2penwd,.37h);
  367.     z9=(1/2x5,1/7h);
  368.     z10=(x5+penwd,-1/7h);
  369.     z11=(penwd,3/14h);
  370.     p = z6{left}..z7{down}..z8{down}..z9{left}..z11{dir40}..{curl0}z10;
  371.     z12=point 1.86 of p;
  372.     z13=(w-brm,y12+0.08h);
  373.     draw z5--z6; draw p;
  374.     draw z12{right}..z13;
  375. endchar;
  376. beginchar("X",13/17twd#+.25twd#+rm#+penwd#,ht#,-.1ht#); ".d";
  377.     italcorr rm#+.5twd#;
  378.     pickup frame_pen;
  379.     z1=(0,h); z2=(w,h);
  380.     x3=good.x w-rm-penwd; y3=h;
  381.     z4=(x3,.74h); z5=(.25twd+1/2penwd,.6h);
  382.     z6=(x3+1/2penwd,.37h);
  383.     z7=(1/2(.25twd+x3),1/7h);
  384.     z8=(1/2penwd,.45h);
  385.     draw z1--z2; draw z3--z4;
  386.     draw z4{left}..z5{down}..z6{down}..z7{left}..z8;
  387. endsav;
  388. beginchar("Y",1.1twd#+rm#,ht#,0); ".dh";
  389.     italcorr rm#+.3twd#;
  390.     path p;
  391.     pickup frame_pen;
  392.     z1=(0,h); z2=(w,h);
  393.     draw z1--z2;
  394.     x3=good.x .85(w-rm); y3=h;
  395.     z4=(x3,.72h);
  396.     z5=(1/2penwd,.47h);
  397.     z6=(.7(w-rm),1/2penwd);
  398.     z7=(w-rm,.23h);
  399.     draw z3--z4;
  400.     p=z4{left}..tension.9..{down}z5..tension.9..{right}z6..{up}z7;
  401.     z8=point 1.91 of p;
  402.     draw p..z6;
  403. endchar;
  404. beginchar("R",13/17twd#+.25twd#+rm#+2penwd#,ht#,-.1ht#); "-n";
  405.     italcorr rm#+.5twd#;
  406.     pickup frame_pen;
  407.     z1 = (0,h); z2 = (w,h);
  408.     draw z1--z2;
  409.     z9=(w-rm,.45h+.8penwd); sqdot(z9);
  410.     addpic(ASCII "X");
  411. endchar;
  412. beginchar("w",13/17twd#+.25twd#+rm#+penwd#,ht#,2penwd#); "R";
  413.     italcorr rm#+.5twd#;
  414.     z9=(11/17twd+1/2penwd,-penwd); sqdot(z9);
  415.     addpic(ASCII "X");
  416. endchar;
  417. beginchar("n",twd#+brm#,ht#,0); "n";
  418.     italcorr brm#;
  419.     frame;
  420.     y6 = good.y 7/12h; x6 = twd;
  421.     y5 = y6 - .75penwd; x5 = 1.25penwd;
  422.     filldraw fullcircle scaled 1.5penwd shifted(x5,y5);
  423.     z7 = (x5,y6);
  424.     draw z6--z7;
  425. endchar;
  426. beginchar("p",.9twd#+brm#,ht#,0); "p";
  427.     italcorr brm#;
  428.     frame;
  429.     z5=(penwd,h);
  430.     z6=(w-brm,.53h);
  431.     x7=x5+.15(w-brm);
  432.     y7=y6-.08h;
  433.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  434. endchar;
  435. beginchar("P",1.55twd#+rm#,ht#,0); "ph";
  436.     italcorr rm#+.65twd#;
  437.     pickup frame_pen;
  438.     z1=(0,h); z2=(w,h);
  439.     x3=good.x .9twd; y3=h; z4=(x3,0);
  440.     draw z1--z2; draw z3--z4;
  441.     z5=(penwd,h);
  442.     z6=(x3,.53h);
  443.     x7=x5+.15x3;
  444.     y7=y6-.08h;
  445.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  446.     z8=(w-rm,.5h);
  447.     z9=(.94(w-rm),.1h);
  448.     draw z6{curl.5}..z8{down}..tension1.3..z9;
  449. endchar;
  450. beginchar("b",11/12twd#+brm#,ht#,0); "b";
  451.     italcorr brm#;
  452.     path p; frame;
  453.     z5=(x3,.52h);
  454.     z6=(1/2penwd,.5h);
  455.     z7=(x3,.48h);
  456.     p=z5..tension1.3..z6{down}..tension1.3..z7;
  457.     y8=h; z9=(.58x3,.5h);
  458.     z8=z9 + whatever*dir125;
  459.     y10=0;
  460.     z10=z9 + whatever*dir305;
  461.     z11= p intersectionpoint (z9--z8);
  462.     z12= p intersectionpoint (z9--z10);
  463.     draw p; draw z11--z12;
  464. endchar;
  465. beginchar("B",1.1twd#+brm#,ht#,0); "bh";
  466.     italcorr brm#;
  467.     tframe;
  468.     z5=(0,h);
  469.     z6=(3/2penwd+.1twd,.76h);
  470.     z7=(3/2penwd+.1twd,.34h);
  471.     z8=(x3,y7+penwd);
  472.     z9=(x7-1/2penwd,y7+1/2penwd);
  473.     draw z5{right}..tension.95..z6---z7;
  474.     draw (reverse halfcircle rotated rot scaled usthick shifted z9)--z8;
  475. endchar;
  476. beginchar("m",1.1twd#+brm#,ht#,0); "m";
  477.     italcorr brm#;
  478.     frame; x5=good.x 3/2penwd; y5=h;
  479.     z6=(x5,y7-penwd);
  480.     y7=good.y .35h+penwd; x7=x3;
  481.     z8=(x6-1/2penwd,y6+1/2penwd);
  482.     draw z5--z6;
  483.     draw (reverse halfcircle rotated rot scaled usthick shifted z8)--z7;
  484. endchar;
  485. beginchar("v",11/12twd#+brm#,ht#,0); "v";
  486.     italcorr brm#;
  487.     frame; z5=(x3,.52h);
  488.     z6=(1/2penwd,.5h);
  489.     z7=(x3,.48h);
  490.     draw z5..tension1.3..z6{down}..tension1.3..z7;
  491. endchar;
  492. beginchar("y",1.1twd#+brm#,ht#,0); "y";
  493.     italcorr brm#;
  494.     frame;
  495.     z5=(1/2penwd,.55h);
  496.     z6=(x3,.55h);
  497.     z7=(.3x3,h);
  498.     draw z5{dir-70}..tension.95..z6;
  499.     draw z5{right}..tension.95..z7;
  500. endchar;
  501. beginchar("r",.8twd#+1.5rm#,ht#,0); "r";
  502.     italcorr 1.5rm#;
  503.     path p;
  504.     z1=(0,h); z2=(w,h);
  505.     pickup frame_pen;
  506.     draw z1--z2;
  507.     z5=(1/2penwd+1/2rm,.65h);
  508.     z6=(w-rm,0);
  509.     p = z5{down}..tension1.1..{curl0}z6;
  510.     z7=point .2 of p;
  511.     z8=(.53(w-.5rm),h);
  512.     draw p; draw z8{curl0}..tension1.1..{left}z7;
  513. endsav;
  514. beginchar("l",4/3twd#+brm#,ht#,0); "l";
  515.     italcorr brm#;
  516.     frame; z5=(x3,2/3h);
  517.     z6=(5/8x3,4/10h);
  518.     z7=(1/4x3,2/3h);
  519.     z8=(1/2penwd,1/2h);
  520.     z9=(3/8x3,0);
  521.     draw z5{left}..{curl4}z6;
  522.     draw z6{curl6}..{left}z7..{down}z8..{curl0}z9;
  523. endchar;
  524. beginchar("f",4/3twd#+brm#,ht#,0); "'s";
  525.   italcorr brm#; path p;
  526.   frame; 
  527.   z6=(.45x3,h);
  528.   z7=(.3x6,.25h);
  529.   z8=(.2x6,.32h);
  530.   z9=(w-brm-.45twd,0);
  531.   p = z6{right}..tension1.1..{left}z7..z8..tension1.4..{curl0}z9;
  532.   draw p;
  533.   z5= point .6 of p;
  534.   z10 = (.23x3,.72h);
  535.   draw z5{curl0}..z10{up}..z6{right};
  536. endchar;
  537. beginchar("q",.9twd#+brm#,ht#,0); ".s";
  538.     italcorr brm#;
  539.     frame;
  540.     z5=(penwd,h);
  541.     z6=(w-brm,.53h);
  542.     x7=x5+.15(w-brm);
  543.     y7=y6-.08h;
  544.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  545.     pickup penrazor scaled subthick;
  546.     draw (1/2penwd,h)--(x6,y6-1/2penwd);
  547. endchar;
  548. beginchar("s",1.2twd#+brm#,ht#,0); "s";
  549. % uses definition of r
  550.     italcorr brm#;
  551.     frame; path p; path q;
  552.     z5=(1/2penwd,.65h);
  553.     z6=(.6twd,0);
  554.     p= z5{down}..tension1.1..{curl0}z6;
  555.     z7= point .2 of p;
  556.     z8= (.424twd,h);
  557.     q= z8{curl0}..tension1.1..{left}z7;
  558.     z9= point .65 of q;
  559.     z10= (w-brm,y9);
  560.     draw p; draw q; draw z9{dir-30}..z10;
  561. endchar;
  562. beginchar("h",1.1twd#+rm#,ht#,.2ht#); "h";
  563.     italcorr rm#+.55twd#;
  564.     lm := w-rm; pickup frame_pen;
  565.     z1=(0,h); z2=(w,h);
  566.     draw z1--z2;
  567.     x3=good.x .8lm; y3=h; z4=(x3,.75h);
  568.     z5=(1/2penwd,.65h); z6=(.4lm,.4h);
  569.     z7=(.65lm,1/2penwd); z8=(lm,.27h);
  570.     z9=(1.1lm,-.3h);
  571.     z10=(1/2penwd,.2h);
  572.     draw z3--z4{left}...z5{down}..z6;
  573.     draw z7..z8{up}..tension1.0 and 1.2..z6..z10{down}..tension1.3..{curl0}z9;
  574. endchar;
  575. beginchar("x",1.1twd#+rm#,ht#,3penwd#); ".rh";
  576.     italcorr rm#+.3twd#;
  577.     z11=(.7(w-rm),-1.5penwd); sqdot(z11);
  578.     path p;
  579.     pickup frame_pen;
  580.     z1=(0,h); z2=(w,h);
  581.     draw z1--z2;
  582.     x3=good.x .85(w-rm); y3=h;
  583.     z4=(x3,.72h);
  584.     z5=(1/2penwd,.47h);
  585.     z6=(.7(w-rm),1/2penwd);
  586.     z7=(w-rm,.23h);
  587.     draw z3--z4;
  588.     p=z4{left}..tension.9..{down}z5..tension.9..{right}z6..{up}z7;
  589.     z8=point 1.91 of p;
  590.     draw p..z6;
  591. endchar;
  592. beginchar(13,brm#,1.5ht#,0); "sup-r";
  593.     pickup sub_pen;
  594.     z1=(0,ht+penwd);
  595.     z2=(-.1ht,1.5ht);
  596.     z3=(.1ht,1.45ht);
  597.     draw z1{curl0}..z2{right}..z3;
  598. endchar;
  599. beginchar(19,brm#,1.5ht#,0); "sup-r & anusvara";
  600.     pickup sub_pen;
  601.     z1=(0,ht+penwd);
  602.     z2=(-.15ht,1.6ht);
  603.     z3=(.05ht,1.57ht);
  604.     draw z1{curl0}..z2{right}..{curl.2}z3;
  605.     z5=(.15rm,1.35ht);
  606.     sqdot(z5);
  607. endchar;
  608. beginchar(18,13/17twd#+rm#+penwd#,ht#,0); "front-I & anusvara";
  609.     pickup frame_pen;
  610.     z1=(0,h); z2=(w,h); z3=(w-rm-penwd,h);
  611.     z4=(x3,.74h); z5=(1/2penwd,.6h);
  612.     z6=(x3+1/2penwd,.37h);
  613.     z7=(1/2x3,1/7h);
  614.     z9=(penwd,3/14h);
  615.     z8=(x3+penwd,-1/7h);
  616.     draw z1--z2; draw z3--z4;
  617.     draw z4{left}..z5{down}..z6{down}..z7{left}..z9{dir40}..{curl0}z8;
  618.     z13=(13/17twd+.1h,1.2ht);
  619.     sqdot(z13);
  620.     z10=(x3,1.5h-1/2penwd);
  621.     z11=(x3+.17h,1.35h);
  622.     z12=(x3-1/2penwd,y3+penwd);
  623.     draw z12..z10{right}..z11;
  624. endchar;
  625. beginchar(20,twd#,ht#,0); "period";
  626.     z1=(1/2w,1/2penwd);
  627.     sqdot(z1);
  628. endchar;
  629. beginchar(21,twd#,ht#,0); "ell-dot";
  630.     z1=(1/2w,h-penwd);
  631.     sqdot(z1);
  632. endchar;
  633. beginchar(",",twd#,ht#,0); "visarga";
  634.     z1=(1/2w,.2h);
  635.     x25:=floor(x1)+.5;
  636.     y25:=floor(y1)+.5;
  637.     dwd:=ceiling(1.5thick);
  638.     if not odd dwd: dwd:= dwd+1; fi
  639.     fill unitsquare shifted -(.5,.5) rotated 45 scaled (.5sqrt2 * dwd)
  640.     shifted z25;
  641.     z2=(1/2w,.8h);
  642.     x25:=floor(x2)+.5;
  643.     y25:=floor(y2)+.5;
  644.     fill unitsquare shifted -(.5,.5) rotated 45 scaled (.5sqrt2 * dwd)
  645.     shifted z25;
  646. endchar;
  647. beginchar(127,.5ht#+2rm#,ht#,0); "abbrev";
  648.     pickup sub_pen;
  649.     z1=(1/2w,.8h-1/2penwd);
  650.     draw fullcircle scaled .4h shifted z1;
  651. endchar;
  652. beginchar(4,.7twd#+.8rm#,1.5ht#,0); "engl-o";
  653.     pickup sub_pen;
  654.     z5=(w-.8rm,1.5ht);
  655.     z6=(.66(w-.8rm),1.25ht);
  656.     z7=(0,1.5ht);
  657.     draw z5..tension1.1..z6{left}..z7;
  658. endchar;
  659. beginchar(" ",.7twd#+.8rm#,1.5ht#,0); "candrabindu";
  660.     z1=(.55(w-.8rm),1.48ht);
  661.     sqdot(z1);
  662.     pickup sub_pen;
  663.     z5=(w-.8rm,1.5ht);
  664.     z6=(.66(w-.8rm),1.25ht);
  665.     z7=(0,1.5ht);
  666.     draw z5..tension1.1..z6{left}..z7;
  667. endchar;
  668. beginchar(".",twd#,ht#,0); "|";
  669.     pickup frame_pen;
  670.     x1=good.x w; y1=0; z2=(x1,h); draw z1--z2;
  671. endchar;
  672. beginchar(";",1.2twd#,ht#,0); "||";
  673.     pickup frame_pen;
  674.     x1=good.x w-2.5penwd; y1=0;
  675.     z2=(x1,h);
  676.     x3=good.x w; y3=0;
  677.     z4=(x3,h);
  678.     draw z1--z2; draw z3--z4;
  679. endchar;
  680. beginchar("\",brm#,ht#,0); "anusvara";
  681.     z1=(0,1.45h);
  682.     sqdot(z1);
  683. endchar;
  684. beginchar("_",twd#+rm#,ht#,0); "avagraha";
  685.     pickup frame_pen;
  686.     z1=(w-rm,h);
  687.     z2=(.2(w-rm),.81h);
  688.     z3=(.85(w-rm),.25h);
  689.     z4=(.5(w-rm),0);
  690.     z5=(1/2penwd,.4h);
  691.     draw z1{left}..z2{down}..z3{down}..z4{left}..{curl.2}z5;
  692. endchar;
  693. beginchar("+",1.1twd#+brm#,ht#,0); "jn";
  694.     italcorr brm#;
  695.     frame;
  696.     y5=good.y .7h; x5=x3;
  697.     z6=(1/2penwd,y5);
  698.     z7=(x6,.25h);
  699.     z8=(.55(w-brm),0);
  700.     z9=(x7+1/2penwd,y7-1/2penwd);
  701.     y10=.3[y9,y6]; x10=.65(w-brm);
  702.     draw z5--z6;
  703.     draw z6{curl0}..tension1.1..z10{down}..z9{left}..z7{up}..
  704.     tension1.3..{curl0}z8;
  705. endchar;
  706. beginchar(34,1.3twd#+brm#,ht#,0); "ks";
  707.     italcorr brm#;
  708.     pickup frame_pen;
  709.     z1=(w-.7rm-brm,h); z2=(w,h);
  710.     x3=good.x w-brm; y3=h; z4=(x3,0);
  711.     draw z1--z2;
  712.     draw z3--z4;
  713.     z5=(w-brm,.7h);
  714.     z6=(.35(w-brm),h);
  715.     z7=(1/2penwd,.32h);
  716.     z8=(.6(w-brm),.15h);
  717.     z9=(.7(w-brm),-1/2penwd);
  718.     z10=(.2(w-brm),.65h);
  719.     z11=(.5(w-brm),.65h);
  720.     draw z5{dir230}..tension1.2..z10..z6{right}..z11..z7{down}..z8--z9;
  721.     draw fullcircle scaled .7thick shifted (x8,y8+.35thick);
  722. endchar;
  723. beginchar("^",0,ht#,.25ht#); "virama";
  724.     pickup frame_pen;
  725.     z1=(1.35rm,mb-.5h);
  726.     z2=(0,mb-.3h);
  727.     draw z1..{left}z2;
  728. endchar;
  729. beginchar("/",twd#+brm#,ht#,0); "tr";
  730.     italcorr brm#;
  731.     frame;
  732.     z5=(w-brm,.5h);
  733.     z6=(1/2penwd,.65h);
  734.     z7=(.3(w-brm),.25h);
  735.     draw z5{dir120}..z6;
  736.     draw z5--z7;
  737. endsav;
  738. beginchar("!",1.25twd#+brm#,ht#,0); "ruu";
  739.     pickup frame_pen;
  740.     z1=(0,h);
  741.     z2=(w,h);
  742.     draw z1--z2;
  743.     addto currentpicture also v[ASCII "r"];
  744.     z3=(.9twd+1/4penwd+1/2rm,.4h+penwd);
  745.     addto currentpicture also v[1] shifted z3;
  746. endchar;
  747. beginchar("z",twd#+1.5rm#,ht#,0); "ru";
  748.     path p; path q;
  749.     z1=(0,h); z2=(w,h);
  750.     pickup frame_pen;
  751.     draw z1--z2;
  752.     z5=(1/2penwd+1/2rm,.65h);
  753.     z6=(.8twd+1/2rm,0);
  754.     p=z5{down}..tension1.1..{curl0}z6;
  755.     z7=point .2 of p;
  756.     z8=(.425twd+1/2rm,h);
  757.     draw p;
  758.     q=z8{curl0}..tension1.1..{left}z7;
  759.     z9=point .8 of q;
  760.     draw q;
  761.     pickup sub_pen;
  762.     z10= (w-rm,.y9);
  763.     z11=(x6,.6y9);
  764.     draw z9{curl.2}..tension1.1..z10{down}..z11;
  765. endchar;
  766. beginchar(27,2twd#+rm#,ht#,0); ".r";
  767.     pickup frame_pen;
  768.     z1=(0,h); z2=(w,h); z3=(twd,.5h);
  769.     z4=(1.7twd,.6h);
  770.     z5=(1.84twd,.3h);
  771.     z6=(1.45twd,.1h);
  772.     z7=(w-rm,0);
  773.     draw z1--z2;
  774.     draw z3--z4;
  775.     draw fullcircle scaled .8penwd shifted (x4,y4+.4penwd);
  776.     draw z4--z5..tension1.2..z6{down}..tension1.2..{curl.2}z7;
  777.     addto currentpicture also v[ASCII "/"];
  778. endchar;
  779. beginchar(11,1.1twd#+brm#,ht#,0); ".g";
  780.     italcorr brm#; path p;
  781.     z11=(.6(w-brm),.5penwd);
  782.     sqdot(z11);
  783.     frame; z5=(.25(w-brm),h);
  784.     z6=(x5,.3h);
  785.     z7=2/3[z5,z6];
  786.     z8=z7 shifted (.1(w-brm),0);
  787.     z9= (1/2penwd,y6+.08h);
  788.     p = z5..z8{down}..z6{left}..z9{up};
  789.     z10 = point 2.4 of p;
  790.     draw p..z10;
  791. endchar;
  792. beginchar(12,1.36twd#+brm#,ht#,0); ".kh";
  793.     italcorr brm#;
  794.     frame; path p;
  795. % uses definition of r and k;
  796.     z5=(1/2penwd,.65h);
  797.     z6=(.55twd,0);
  798.     p= z5{down}..tension1.1..{curl0}z6;
  799.     z7=point .2 of p;
  800.     z8= (.424twd,h);
  801.     draw p;
  802.     draw z8{curl0}..tension1.1..{left}z7;
  803.     z9=(w-brm,.55h);
  804.     z10=(w-brm-.55(23/16twd)+1/2penwd,.5h);
  805.     z11=(w-brm,.45h);
  806.     draw z9..tension1.3..z10{down}..tension1.3..z11;
  807.     z12=(.65(w-brm),0);
  808.     sqdot(z12);
  809. endchar;
  810. beginchar("'",1.55twd#+rm#,ht#,0); "f";
  811.     italcorr rm#+.65twd#;
  812.     pickup frame_pen;
  813.     z1=(0,h); z2=(w,h);
  814.     x3=good.x .9twd; y3=h; z4=(x3,0);
  815.     draw z1--z2; draw z3--z4;
  816.     z5=(penwd,h);
  817.     z6=(x3,.53h);
  818.     x7=x5+.15x3;
  819.     y7=y6-.08h;
  820.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  821.     z8=(w-rm,.5h);
  822.     z9=(.94(w-rm),.1h);
  823.     draw z6{curl.5}..z8{down}..tension1.3..z9;
  824.     z10=(.45twd,.5penwd);
  825.     sqdot(z10);
  826. endchar;
  827. beginchar(")",1.4twd#+brm#,ht#,0); "z";
  828.     italcorr brm#;
  829.     z11=(.8(w-brm),.5penwd);
  830.     sqdot(z11);
  831.     frame;
  832.     y5 = good.y .66h; x5 = 1/2penwd;
  833.     z7 = (.45x3,y5);
  834.     z8 = (w-brm,y5);
  835.     y6 = good.y .17h; x6 = .52x3;
  836.     draw z5{curl.5}..tension1.2..z6{right}..{curl0}z7--z8;
  837. endchar;
  838. beginchar("*",23/16twd#+rm#,ht#,0); "q";
  839.     italcorr rm#+.65twd#;
  840.     pickup frame_pen;
  841.     lm:=w-rm;
  842.     z1=(0,h); z2=(w,h); x3=good.x .55lm; y3=h;
  843.     z4=(x3,0); draw z1--z2; draw z3--z4;
  844.     z5=(x3,.6h);
  845.     z6=(1/2penwd,.55h);
  846.     z7=(x3,.5h);
  847.     z8=(lm,.5h);
  848.     z9=(.94lm,.1h);
  849.     draw z5..tension1.3..z6{down}..tension1.3..z7;
  850.     draw z7{curl.5}..z8{down}..tension1.3..z9;
  851.     z10=(.25(w-rm),.5penwd);
  852.     sqdot(z10);
  853. endchar;
  854. beginchar("G",1.1twd#+brm#,ht#,0); "gh";
  855.     italcorr brm#;
  856.     frame;
  857.     path p;
  858.     z5=(x3,.5h);
  859.     z6=(.65x3,.65h);
  860.     z10=(.18x3,.5h);
  861.     p=z5{curl0}..z10{up}...{right}z6;
  862.     draw p;
  863.     z7= point 1.7 of p;
  864.     z8=(.26x3,h);
  865.     vardef yup(expr y)= xpart direction 1 of (z7{curl0}..(1/2penwd,y)..{right}z
  866. 8) < 0
  867.     enddef;
  868.     z9=(1/2penwd,solve yup(y7,y8));
  869.     draw z7{curl0}..z9..{right}z8;
  870. endchar;
  871. beginchar("~",0,ht#,.25ht#); "sub-r";
  872.     pickup sub_pen;
  873.     z1=(-.35twd,mb-.45h);
  874.     z2=(0,mb-1/2penwd);
  875.     z3=(.32twd,mb-.25h);
  876.     draw z1--z2;
  877.     draw z2--z3;
  878. endchar;
  879. beginchar("#",1.3twd#,ht#,0); "/ks";
  880.     pickup frame_pen;
  881.     z1=(w-.7rm,h); z2=(w,h);
  882.     z3=(w,h); z4=(w,0);
  883.     draw z1--z2;
  884.     z5=(w,.7h);
  885.     z6=(.35w,h);
  886.     z7=(1/2penwd,.32h);
  887.     z8=(.6w,.15h);
  888.     z9=(.7w,-1/2penwd);
  889.     z10=(.2w,.65h);
  890.     z11=(.5w,.65h);
  891.     draw z5{dir230}..tension1.2..z10..z6{right}..z11..z7{down}..z8--z9;
  892.     draw fullcircle scaled .7thick shifted (x8,y8+.35thick);
  893. endchar;
  894. beginchar("<",1.1twd#,ht#,0); "/B";
  895.     z1=(w,h); z2=(w-.7rm,h);
  896.     pickup frame_pen;
  897.     draw z1--z2;
  898.     z5=(0,h);
  899.     z6=(3/2penwd+.1twd,.76h);
  900.     z7=(3/2penwd+.1twd,.34h);
  901.     z8=(w,y7+penwd);
  902.     z9=(x7-1/2penwd,y7+1/2penwd);
  903.     draw z5{right}..tension.95..z6---z7;
  904.     draw (reverse halfcircle rotated rot scaled usthick shifted z9)--z8;
  905. endchar;
  906. beginchar("@",1.1twd#,ht#,0); "/D";
  907.     z1 =(w,h); z2=(w-.7rm,h);
  908.     pickup frame_pen;
  909.     draw z1--z2;
  910.     path p;
  911.     z5=(w,.5h);
  912.     z6=(.65w,.65h);
  913.     z10=(.18w,.5h);
  914.     p=z5{curl0}..z10{up}...{right}z6;
  915.     draw p;
  916.     z7= point 1.7 of p;
  917.     z8=(.26w,h);
  918.     vardef yup(expr y)= xpart direction 1 of (z7{curl0}..(1/2penwd,y)..{right}z
  919. 8) < 0
  920.     enddef;
  921.     z9=(1/2penwd,solve yup(y7,y8));
  922.     draw z7{curl0}..z9..{right}z8;
  923. endchar;
  924. beginchar("]",1.1twd#,ht#,0); "/G";
  925.     pickup frame_pen;
  926.     z1 = (0,h); z2 = (w,h);
  927.     draw z1--z2;
  928.     path p;
  929.     z5=(w,.5h);
  930.     z6=(.65w,.65h);
  931.     z10=(.18w,.5h);
  932.     p=z5{curl0}..z10{up}...{right}z6;
  933.     draw p;
  934.     z7= point 1.7 of p;
  935.     z8=(.26w,h);
  936.     vardef yup(expr y)= xpart direction 1 of (z7{curl0}..(1/2penwd,y)..{right}z
  937. 8) < 0
  938.     enddef;
  939.     z9=(1/2penwd,solve yup(y7,y8));
  940.     draw z7{curl0}..z9..{right}z8;
  941. endchar;
  942. beginchar("$",1.45twd#,ht#,0); "/J";
  943.     path p;
  944.     pickup frame_pen;
  945.     z1 = (0,h); z2 = (w,h);
  946.     draw z1--z2;
  947.     x5=good.x 13/17twd; y5=h;
  948.     z6=(x5,.74h);
  949.     z7=(1/2penwd,.6h);
  950.     z8=(x5+1/2penwd,.37h);
  951.     z9=(1/2x5,1/7h);
  952.     z10=(x5+penwd,-1/7h);
  953.     z11=(penwd,3/14h);
  954.     p = z6{left}..z7{down}..z8{down}..z9{left}..z11{dir40}..{curl0}z10;
  955.     z12=point 1.86 of p;
  956.     z13=(w,y12+0.08h);
  957.     draw z5--z6; draw p;
  958.     draw z12{right}..z13;
  959. endchar;
  960. beginchar("H",1.36twd#,ht#,0); "/K";
  961.     pickup frame_pen;
  962.     z1 = (0,h); z2 = (w,h);
  963.     draw z1--z2;
  964.     path p;
  965.     z5=(1/2penwd,.65h);
  966.     z6=(.8twd,0);
  967.     p= z5{down}..tension1.1..{curl0}z6;
  968.     z7=point .2 of p;
  969.     z8= (.424twd,h);
  970.     draw p;
  971.     draw z8{curl0}..tension1.1..{left}z7;
  972.     z9=(w,.5h);
  973.     z10=(w-.55(23/16twd)+1/2penwd,.5h);
  974.     z11=(w,.5h);
  975.     draw z9..tension1.2..z10{down}..tension1.2..z11;
  976. endchar;
  977. beginchar("%",1.5twd#,ht#,0); "/P";
  978.     pickup frame_pen;
  979.     z1=(0,h); z2=(w,h);
  980.     x3=good.x .9twd; y3=h; z4=(x3,0);
  981.     draw z1--z2; draw z3--z4;
  982.     z5=(penwd,h);
  983.     z6=(x3,.53h);
  984.     x7=x5+.15x3;
  985.     y7=y6-.08h;
  986.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  987.     z8=(w,y6);
  988.     draw z6{dir60}..z8;
  989. endchar;
  990. beginchar(22,1.2twd#,ht#,0); "/S";
  991.     pickup frame_pen;
  992.     z1 = (0,h); z2 = (w,h);
  993.     draw z1--z2;    
  994.     z5=(.16w,.7h);
  995.     z6=(.5w,.5h);
  996.     z7=(.22w,.2h);
  997.     z8=(w,y6);
  998.     z9=(1/2penwd,.4h);
  999.     draw z5..z6{down}..z7..{curl.2}z9;
  1000.     draw z6{dir-20}..z8;
  1001. endchar;
  1002. beginchar("L",1.1twd#,ht#,0); "/T";
  1003.     path p;
  1004.     z1=(w,h); z2=(w-.7rm,h);
  1005.     pickup frame_pen;
  1006.     draw z1--z2;
  1007.     z5=(1/2penwd,.55h);
  1008.     z6=(w,.55h);
  1009.     z7=(.25w,h);
  1010.     draw z5{dir-70}..tension.95..z6;
  1011.     p=z5{right}..{left}z7;
  1012.     z8=point .4 of p;
  1013.     draw p..tension.95..{curl.2}z8;
  1014. endchar;
  1015. beginchar(23,1.1twd#,ht#,0); "/Z";
  1016.     pickup frame_pen;
  1017.     z1 = (0,h); z2 = (w,h);
  1018.     draw z1--z2;
  1019.     x5=good.x 1/2penwd; y5=h;
  1020.     z6=(x5,.55h);
  1021.     z7=(1/2[x5,x8],.3h);
  1022.     x8=good.x .65twd; y8=y6;
  1023.     z9=(x8,h);
  1024.     draw z5---z6..z7{right}..z8---z9;
  1025. endchar;
  1026. beginchar("N",11/12twd#,ht#,0); "/b";
  1027.     pickup frame_pen;
  1028.     z1 = (0,h); z2 = (w,h);
  1029.     draw z1--z2;
  1030.     path p;
  1031.     z5=(w,.52h);
  1032.     z6=(1/2penwd,.5h);
  1033.     z7=(w,.48h);
  1034.     p=z5..tension1.3..z6{down}..tension1.3..z7;
  1035.     y8=h; z9=(.58w,.5h);
  1036.     z8=z9 + whatever*dir125;
  1037.     y10=0;
  1038.     z10=z9 + whatever*dir305;
  1039.     z11= p intersectionpoint (z9--z8);
  1040.     z12= p intersectionpoint (z9--z10);
  1041.     draw p; draw z11--z12;
  1042. endchar;
  1043. beginchar("Q",1.2twd#,ht#,0); "/c";
  1044.   pickup frame_pen;
  1045.   z1 = (0,h); z2 = (w,h);
  1046.   draw z1--z2;
  1047.   y5 = good.y .65h; x5 = 1/2penwd;
  1048.   z6 = (w-penwd,y5);
  1049.   z9 = (.44w,y5);
  1050.   z7 = (.55w,.3h);
  1051.   z8 = (w,.4h);
  1052.   draw z5--z6; draw z9{curl.5}..z7{right}..z8;
  1053. endchar;
  1054. beginchar("[",4/3twd#,ht#,0); "/'s";
  1055.     path p;
  1056.     pickup frame_pen;
  1057.     z1 = (0,h); z2 = (w,h);
  1058.     draw z1--z2;
  1059.     z6=(.45w,h);
  1060.     z7=(.3x6,.25h);
  1061.     z8=(.2x6,.32h);
  1062.     z9=(w-.45twd,0);
  1063.     p = z6{right}..tension1.1..{left}z7..z8..tension1.4..{curl0}z9;
  1064.     draw p;
  1065.     z5= point .6 of p;
  1066.     z10 = (.23w,.72h);
  1067.     draw z5{curl0}..z10{up}..z6{right};
  1068. endchar;
  1069. beginchar("`",1.1twd#,ht#,0); "/g";
  1070.   path p;
  1071.   pickup frame_pen;
  1072.   z1 = (0,h); z2 = (w,h);
  1073.   draw z1--z2;
  1074.   z5=(.25w,h);
  1075.   z6=(x5,.3h);
  1076.   z7=2/3[z5,z6];
  1077.   z8=z7 shifted (.1w,0);
  1078.   z9= (1/2penwd,y6+.08h);
  1079.   p = z5..z8{down}..z6{left}..z9{up};
  1080.   z10 = point 2.4 of p;
  1081.   draw p..z10;
  1082. endchar;
  1083. beginchar(">",1.4twd#,ht#,0); "/j";
  1084.     pickup frame_pen;
  1085.     z1 = (0,h); z2 = (w,h);
  1086.     draw z1--z2;
  1087.     y5 = good.y .66h; x5 = 1/2penwd;
  1088.     z7 = (.45w,y5);
  1089.     z8 = (w,y5);
  1090.     y6 = good.y .17h; x6 = .52w;
  1091.     draw z5{curl.5}..tension1.2..z6{right}..{curl0}z7--z8;
  1092. endchar;
  1093. beginchar("?",1.35twd#,ht#,0); "/k";
  1094.     pickup frame_pen;
  1095.     lm:=23/16twd;
  1096.     z1=(0,h); z2=(w,h); x3=good.x .55lm; y3=h;
  1097.     z4=(x3,0); draw z1--z2; draw z3--z4;
  1098.     z5=(x3,.6h);
  1099.     z6=(1/2penwd,.55h);
  1100.     z7=(x3,.5h);
  1101.     z8=(w,.55h);
  1102.     z9=(x3,y6);
  1103.     draw z5..tension1.3..z6{down}..tension1.3..z7;
  1104.     draw z9{dir60}..z8;
  1105. endchar;
  1106. beginchar("S",4/3twd#,ht#,0); "/l";
  1107.     pickup frame_pen;
  1108.     z1 = (0,h); z2 = (w,h);
  1109.     draw z1--z2;
  1110.     z5=(w,2/3h);
  1111.     z6=(5/8w,4/10h);
  1112.     z7=(1/4w,2/3h);
  1113.     z8=(1/2penwd,1/2h);
  1114.     z9=(3/8w,0);
  1115.     draw z5{left}..{curl4}z6;
  1116.     draw z6{curl6}..{left}z7..{down}z8..{curl0}z9;
  1117. endchar;
  1118. beginchar("M",1.1twd#,ht#,0); "/m";
  1119.     pickup frame_pen;
  1120.     z1 = (0,h); z2 = (w,h);
  1121.     draw z1--z2;
  1122.     x5=good.x 3/2penwd; y5=h;
  1123.     z6=(x5,y7-penwd);
  1124.     y7=good.y .35h+penwd; x7=w;
  1125.     z8=(x6-1/2penwd,y6+1/2penwd);
  1126.     draw z5--z6;
  1127.     draw (reverse halfcircle rotated rot scaled usthick shifted z8)--z7;
  1128. endchar;
  1129. beginchar(6,twd#,ht#,0); "/n";
  1130.     pickup frame_pen;
  1131.     z1 = (0,h); z2 = (w,h);
  1132.     draw z1--z2;
  1133.     y6 = good.y 7/12h; x6 = w;
  1134.     y5 = y6 - .75penwd; x5 = 1.25penwd;
  1135.     filldraw fullcircle scaled 1.5penwd shifted(x5,y5);
  1136.     z7 = (x5,y6);
  1137.     draw z6--z7;
  1138. endchar;
  1139. beginchar("=",.9twd#,ht#,0); "/p";
  1140.     pickup frame_pen;
  1141.     z1 = (0,h); z2 = (w,h);
  1142.     draw z1--z2;
  1143.     z5=(penwd,h);
  1144.     z6=(w,.53h);
  1145.     x7=x5+.15w;
  1146.     y7=y6-.08h;
  1147.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  1148. endchar;
  1149. beginchar(9,.9twd#,ht#,0); "/.s";
  1150.     pickup frame_pen;
  1151.     z1 = (0,h); z2 = (w,h);
  1152.     draw z1--z2;
  1153.     z5=(penwd,h);
  1154.     z6=(w,.53h);
  1155.     x7=x5+.15w;
  1156.     y7=y6-.08h;
  1157.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  1158.     pickup penrazor scaled subthick;
  1159.     draw (1/2penwd,h)--(x6,y6-1/2penwd);
  1160. endchar;
  1161. beginchar("-",1.2twd#,ht#,0); "/s";
  1162.     pickup frame_pen;
  1163.     z1 = (0,h); z2 = (w,h);
  1164.     draw z1--z2;
  1165.     path p; path q;
  1166.     z5=(1/2penwd,.65h);
  1167.     z6=(.6twd,0);
  1168.     p= z5{down}..tension1.1..{curl0}z6;
  1169.     z7= point .2 of p;
  1170.     z8= (.424twd,h);
  1171.     q= z8{curl0}..tension1.1..{left}z7;
  1172.     z9= point .65 of q;
  1173.     z10= (w,y9);
  1174.     draw p; draw q; draw z9{dir-30}..z10;
  1175. endchar;
  1176. beginchar("(",twd#,ht#,0); "/t";
  1177.     pickup frame_pen;
  1178.     z1 = (0,h); z2 = (w,h);
  1179.     draw z1--z2;
  1180.     y5 = good.y 2/3h; x5 = w;
  1181.     z6 = (0.35w,y5); z7 = (0.55w,0);
  1182.     draw z5---z6..{curl0}z7;
  1183. endchar;
  1184. beginchar(38,11/12twd#,ht#,0); "/v";
  1185.     pickup frame_pen;
  1186.     z1 = (0,h); z2 = (w,h);
  1187.     draw z1--z2;
  1188.     z5 = (w,.52h);
  1189.     z6 = (1/2penwd,.5h);
  1190.     z7 = (w,.48h);
  1191.     draw z5..tension1.3..z6{down}..tension1.3..z7;
  1192. endchar;
  1193. beginchar(5,1.1twd#,ht#,0); "/y";
  1194.     pickup frame_pen;
  1195.     z1 = (0,h); z2 = (w,h);
  1196.     draw z1--z2;
  1197.     z5=(1/2penwd,.55h);
  1198.     z6=(w,.55h);
  1199.     z7=(.3w,h);
  1200.     draw z5{dir-70}..tension.95..z6;
  1201.     draw z5{right}..tension.95..z7;
  1202. endchar;
  1203. beginchar(28,1.1twd#,ht#,0); "/.g";
  1204.     pickup frame_pen; path p;
  1205.     z1 = (0,h); z2 = (w,h);
  1206.     draw z1--z2;
  1207.     z11=(.6w,.5penwd);
  1208.     sqdot(z11);
  1209.     z5=(.25w,h);
  1210.     z6=(x5,.3h);
  1211.     z7=2/3[z5,z6];
  1212.     z8=z7 shifted (.1w,0);
  1213.     z9= (1/2penwd,y6+.08h);
  1214.     p = z5..z8{down}..z6{left}..z9{up};
  1215.     z10 = point 2.4 of p;
  1216.     draw p..z10;
  1217. endchar;
  1218. beginchar(7,1.36twd#,ht#,0); "/.kh";
  1219.     pickup frame_pen;
  1220.     z1 = (0,h); z2 = (w,h);
  1221.     draw z1--z2;
  1222.     path p;
  1223.     z5=(1/2penwd,.65h);
  1224.     z6=(.55twd,0);
  1225.     p= z5{down}..tension1.1..{curl0}z6;
  1226.     z7=point .2 of p;
  1227.     z8= (.424twd,h);
  1228.     draw p;
  1229.     draw z8{curl0}..tension1.1..{left}z7;
  1230.     z9=(w,.5h);
  1231.     z10=(w-.55(23/16twd)+1/2penwd,.5h);
  1232.     z11=(w,.5h);
  1233.     draw z9..tension1.2..z10{down}..tension1.2..z11;
  1234.     z12=(.67w,0);
  1235.     sqdot(z12);
  1236. endchar;
  1237. beginchar(8,1.5twd#,ht#,0); "/.ph";
  1238.     pickup frame_pen;
  1239.     z1=(0,h); z2=(w,h);
  1240.     x3=good.x .9twd; y3=h; z4=(x3,0);
  1241.     draw z1--z2; draw z3--z4;
  1242.     z5=(penwd,h);
  1243.     z6=(x3,.53h);
  1244.     x7=x5+.15x3;
  1245.     y7=y6-.08h;
  1246.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  1247.     z8=(w,y6);
  1248.     draw z6{dir60}..z8;
  1249.     z10=(.45twd,.5penwd);
  1250.     sqdot(z10);
  1251. endchar;
  1252. beginchar(30,1.4twd#,ht#,0); "/z";
  1253.     pickup frame_pen;
  1254.     z1 = (0,h); z2 = (w,h);
  1255.     draw z1--z2;
  1256.     z11=(.8w,.5penwd);
  1257.     sqdot(z11);
  1258.     y5 = good.y .66h; x5 = 1/2penwd;
  1259.     z7 = (.45w,y5);
  1260.     z8 = (w,y5);
  1261.     y6 = good.y .17h; x6 = .52w;
  1262.     draw z5{curl.5}..tension1.2..z6{right}..{curl0}z7--z8;
  1263. endchar;
  1264. beginchar(10,1.35twd#,ht#,0); "/.k";
  1265.     pickup frame_pen;
  1266.     lm:=23/16twd;
  1267.     z1=(0,h); z2=(w,h); x3=good.x .55lm; y3=h;
  1268.     z4=(x3,0); draw z1--z2; draw z3--z4;
  1269.     z5=(x3,.6h);
  1270.     z6=(1/2penwd,.55h);
  1271.     z7=(x3,.5h);
  1272.     z8=(w,.55h);
  1273.     z9=(x3,y6);
  1274.     draw z5..tension1.3..z6{down}..tension1.3..z7;
  1275.     draw z9{dir60}..z8;
  1276.     z10=(.25lm,.5penwd);
  1277.     sqdot(z10);
  1278. endchar;
  1279. beginchar("}",.7twd#+brm#,ht#,0); "rstroke";
  1280.     italcorr brm#;
  1281.     pickup sub_pen;
  1282.     z1=(w-brm,.4h);
  1283.     z2=(0,0);
  1284.     draw z1--z2;
  1285. endsav;
  1286. beginchar(17,2twd#+rm#,ht#,0); "..r";
  1287.     italcorr brm#; path p;
  1288.     pickup frame_pen;
  1289.     z1=(0,h); z2=(w,h);
  1290.     x10 = good.x twd; y10 = h;
  1291.     x11 = x10; y11 = 0;
  1292.     draw z1--z2; 
  1293.     draw z10--z11;
  1294.     z12 = (1/2penwd,.65h);
  1295.     z13 = (.3x10,.25h);
  1296.     z3=(x10,.5h);
  1297.     draw z3{dir120}..z12;
  1298.     draw z3--z13;
  1299.     z4=(1.7twd,.6h);
  1300.     z5=(1.84twd,.3h);
  1301.     z6=(1.45twd,.15h);
  1302.     z7=(w-rm,.05h);
  1303.     draw z3--z4;
  1304.     draw fullcircle scaled .8penwd shifted (x4,y4+.4penwd);
  1305.     p = z4--z5..tension1.2..z6{down}..tension1.1..{curl.2}z7;
  1306.     draw p;
  1307.     z8 = point 2.5 of p;
  1308.     z9 = (1.55twd,-.15h);
  1309.     z14 = (2.1twd,-.25h);
  1310.     draw z8..tension1.1..z9{down}..tension1.1..{curl.3}z14;
  1311. endchar;
  1312. beginchar(14,0,ht#,0); "sub ..r";
  1313.     path p;
  1314.     pickup sub_pen;
  1315.     z1 = (2/14uwidth,mb-penwd);
  1316.     z2 = (-9/28uwidth,mb-(penwd+.18uwidth));
  1317.     z3 = (9/28uwidth,mb-(penwd+.36uwidth));
  1318.     p = z1{left}..tension1.2..z2{down}..tension1.1..{curl.2}z3;
  1319.     draw p;
  1320.     z4 = point 1.5 of p;
  1321.     z5 = (-8/28uwidth,mb-(penwd+.57uwidth));
  1322.     z6 = (3/7uwidth,mb-(penwd+.68uwidth));
  1323.     draw z4..tension1.1..z5{down}..tension1.2..{curl.3}z6;
  1324. endchar;
  1325. beginchar(":",2.2twd#+rm#,ht#,0); "OM";
  1326.     pickup frame_pen;
  1327.     path p; path q;
  1328.     lwd := 1.2twd;
  1329.     z5 = (1/2penwd,.8h);
  1330.     z6 = (.72lwd,.70h);
  1331.     z7 = (.32lwd,.42h);
  1332.     p = z5{curl0}..tension1.1..z6..tension1.1..{curl0.3}z7;
  1333.     z8 = point 1.6 of p;
  1334.     z9 = (.7lwd,0);
  1335.     z10 = (1/2penwd,.2h);
  1336.     q = z8{curl.2}..z9{left}..tension.95..z10;
  1337.     draw p; draw q;
  1338.     z11 = point 0.45 of q;
  1339.     z12 = (.75(w-rm),y11+.2h);
  1340.     z13 = (.9(w-rm),.16h);
  1341.     z14 = (.8(w-rm),0);
  1342.     draw z11{curl.1}..z12{right}..z13{left}..z14;
  1343.     z1 = (.5(w-rm),1.05h);
  1344.     z2 = (.95(w-rm),y1);
  1345.     z3 = (.66[x1,x2],.75h);
  1346.     draw z2..tension1.1..z3{left}..z1;
  1347.     z4 = (.5[x1,x2],1.1h);
  1348.     sqdot(z4);
  1349. endchar;
  1350. beginchar(15,1.7twd#+rm#,ht#,0); "L";
  1351.     italcorr rm#+.4twd#;
  1352.     path p; pickup frame_pen;
  1353.     z1 = (0,h); z2 = (w,h);
  1354.     draw z1--z2;
  1355.     x3 = good.x .75(w-rm); y3 = h;
  1356.     z4 = (x3,.63h);
  1357.     draw z3--z4;
  1358.     z6 = (x3,1/2penwd);
  1359.     z5 = (.5(w-rm),.5[y6,y4]);
  1360.     z7 = (w-rm,y5);
  1361.     z8 = (.25(w-rm),1/2penwd);
  1362.     z9 = (1/2penwd,y5);
  1363.     z11 = (x8,y4);
  1364.     p = z6{right}..z7{up}..z4{left}..z5..z8{left}..z9{up}..z11{right};
  1365.     draw p;
  1366.     z10 = point 3.2 of p;
  1367.     z12 = point 2.8 of p;
  1368.     draw z11{right}..{curl.5}z12;
  1369.     draw z10{curl.5}..z6{right};
  1370. endchar;
  1371. beginchar(16,1.7twd#,ht#,0); "/L";
  1372.     path p; pickup frame_pen;
  1373.     z1 = (0,h); z2 = (w,h);
  1374.     draw z1--z2;
  1375.     x3 = good.x .75w; y3 = h;
  1376.     z4 = (x3,.63h);
  1377.     z6 = (x3,1/2penwd);
  1378.     z5 = (.5w,.5[y6,y4]);
  1379.     z7 = (w,y5);
  1380.     z8 = (.25w,1/2penwd);
  1381.     z9 = (1/2penwd,y5);
  1382.     z11 = (x8,y4);
  1383.     p = z6{right}..z7{up}..z4{left}..z5..z8{left}..z9{up}..z11{right};
  1384.     draw p;
  1385.     z10 = point 3.2 of p;
  1386.     z12 = point 2.8 of p;
  1387.     draw z11{right}..{curl.5}z12;
  1388.     draw z10{curl.5}..z6{right};
  1389. endchar;
  1390. beginchar(31,0,ht#,0); "sub-.l";
  1391.     path p;
  1392.     pickup sub_pen;
  1393.     z1 = (-3/8uwidth,mb-(penwd+3/8uwidth));
  1394.     lft z2 = (-1/2uwidth,mb-(penwd+1/8uwidth));
  1395.     z3 = (-1/8uwidth,mb-penwd);
  1396.     z4 = (0,mb-(penwd+4/16uwidth));
  1397.     p = z1..z2..z3..z4;
  1398.     draw p;
  1399.     z5 = point 2.6 of p;
  1400.     z6 = (4/16uwidth,mb-penwd);
  1401.     z7 = (7/16uwidth,mb-(penwd+1/4uwidth));
  1402.     z8 = (5/16uwidth,mb-(penwd+1/2uwidth));
  1403.     z9 = (5/8uwidth,mb-(penwd+9/16uwidth));
  1404.     draw z5..z6{right}..z7{down}..z8{down}..tension.95..{curl.2}z9;
  1405. endchar;
  1406. beginchar(29,twd#,ht#,0); "Marathi r";
  1407.     pickup frame_pen;
  1408.     z1 = (0,h); z2 = (w,h);
  1409.     draw z1--z2;
  1410.     z3 = (1/2penwd,.55h);
  1411.     z4 = (w,y3);
  1412.     draw z3{dir-30}..z4;
  1413. endchar;
  1414. beginchar(24,1.65twd#+rm#,ht#,0); ".l";
  1415.     italcorr rm#;
  1416.     pickup frame_pen;
  1417.     lm := 4/3twd;
  1418.     z1 = (0,h); z2 = (w,h);
  1419.     z3 = (lm,h);
  1420.     z5 = (x3,2/3h);
  1421.     draw z1--z2;
  1422.     draw z3--z5;
  1423.     z6 = (5/8x3,4/10h);
  1424.     z7 = (1/4x3,2/3h);
  1425.     z8 = (1/2penwd,1/2h);
  1426.     z9 = (3/8x3,0);
  1427.     z10 = (w-rm,.4h);
  1428.     z11 = (.85lm,0);
  1429.     z12 = (w-rm,-.08h);
  1430.     draw z6{curl4}..z5{right}..z10{down}..z11{down}..tension.95..
  1431.           {curl.2}z12;
  1432.     draw z6{curl6}..{left}z7..{down}z8..{curl0}z9;
  1433. endchar;
  1434. beginchar(25,1.65twd#+rm#,ht#,0); ".L";
  1435.     italcorr rm#;
  1436.     pickup frame_pen; path p;
  1437.     lm := 4/3twd;
  1438.     z1 = (0,h); z2 = (w,h);
  1439.     z3 = (lm,h);
  1440.     z5 = (x3,2/3h);
  1441.     draw z1--z2;
  1442.     draw z3--z5;
  1443.     z6 = (5/8x3,4/10h);
  1444.     z7 = (1/4x3,2/3h);
  1445.     z8 = (1/2penwd,1/2h);
  1446.     z9 = (3/8x3,0);
  1447.     z10 = (w-rm,.4h);
  1448.     z11 = (.85lm,0);
  1449.     z12 = (w-rm,-.08h);
  1450.     p = z6{curl4}..z5{right}..z10{down}..z11{down}..tension.95..
  1451.           {curl.2}z12;
  1452.     draw p;
  1453.     draw z6{curl6}..{left}z7..{down}z8..{curl0}z9;
  1454.     z13 = point 3.5 of p;
  1455.     z14 = (1.08x10,-.35h);
  1456.     draw z13{dir210}..{curl.2}z14;
  1457. endchar;
  1458. beginchar(124,0,ht#,0); "sub-.L";
  1459.     path p;
  1460.     pickup sub_pen; path q;
  1461.     z1 = (-3/8uwidth,mb-(penwd+3/8uwidth));
  1462.     lft z2 = (-1/2uwidth,mb-(penwd+1/8uwidth));
  1463.     z3 = (-1/8uwidth,mb-penwd);
  1464.     z4 = (0,mb-(penwd+4/16uwidth));
  1465.     p = z1..z2..z3..z4;
  1466.     draw p;
  1467.     z5 = point 2.6 of p;
  1468.     z6 = (4/16uwidth,mb-penwd);
  1469.     z7 = (7/16uwidth,mb-(penwd+1/4uwidth));
  1470.     z8 = (5/16uwidth,mb-(penwd+1/2uwidth));
  1471.     z9 = (5/8uwidth,mb-(penwd+9/16uwidth));
  1472.     q = z5..z6{right}..z7{down}..z8{down}..tension.95..{curl.2}z9;
  1473.     draw q;
  1474.     z10 = point 3.5 of q;
  1475.     z11 = (1.1x9,mb-(penwd+27/32uwidth));
  1476.     draw z10{dir210}..{curl.2}z11;
  1477. endchar;
  1478. beginchar("1",5/8twd#+rm#,ht#,0); "1";
  1479.     pickup frame_pen; path p;
  1480.     z1=(1/2penwd,.2h);
  1481.     z2=(w-rm,-.2h);
  1482.     z3=(x2-.75penwd,y2-.75penwd);
  1483.     z4=(w-rm,.7h);
  1484.     z5=(.6(w-rm),h);
  1485.     z6=(1/2penwd,.75h);
  1486.     draw z1--z2;
  1487.     draw z2--z3;
  1488.     p=z1{curl0}..tension1.2..z4{up}..z5{left};
  1489.     z7=point .8 of p;
  1490.     draw p..z6{down}..tension1.1..z7;
  1491. endchar;
  1492. beginchar("2",twd#+rm#,ht#,0); "2";
  1493.     pickup frame_pen;
  1494.     z1=(1/2penwd,.9h);
  1495.     z2=(w-rm,.7h);
  1496.     z3=(.25(w-rm),.35h);
  1497.     z4=(x3,.45h);
  1498.     z5=(w-rm,-.2h);
  1499.     draw z1{curl0}..tension1.1..z2{down}..z3{left}..z4..tension2..{curl0}z5;
  1500. endchar;
  1501. beginchar("3",.85twd#+rm#,ht#,0); "3";
  1502.     pickup frame_pen;
  1503.     z1=(1/2penwd,.95h);
  1504.     z2=(.95(w-rm),.78h);
  1505.     z3=(.65(w-rm),.6h);
  1506.     z4=(.2(w-rm),.6h);
  1507.     z5=(w-rm,.35h);
  1508.     z6=(.3(w-rm),.15h);
  1509.     z7=(x6,.25h);
  1510.     z8=(w-rm,-.2h);
  1511.     draw z1{right}..tension1.1..z2{down}..{left}z3..tension1.2..{curl0}z4;
  1512.     draw z3..z5{down}..z6{left}..z7..tension2..{curl0}z8;
  1513. endchar;
  1514. beginchar("4",4/3twd#+rm#,ht#,0); "4";
  1515.     pickup frame_pen;
  1516.     z1=(1/2penwd,h);
  1517.     z2=(w-rm,h);
  1518.     z3=(1/2(w-rm),.2h);
  1519.     z4=(1/2(w-rm),.64h);
  1520.     draw z1..z4..tension.9..z3{left}..tension.9..z4..z2;
  1521. endchar;
  1522. beginchar("5",1.15twd#+rm#,ht#,0); "5";
  1523.     pickup frame_pen;
  1524.     path p;
  1525.     z1=(1/2penwd,h);
  1526.     z2=(.75(w-rm),h);
  1527.     z3=(.1(w-rm),1/2penwd);
  1528.     z4=(x3,y3+1/2penwd);
  1529.     z5=(w-rm,-.1h);
  1530.     p=z2{curl0}..tension1.2..z3{left}..z4..{curl0}z5;
  1531.     draw p;
  1532.     z6=point .3 of p;
  1533.     x7=.4[x1,x6]; y7=1.3[y1,y6];
  1534.     draw z1{down}..tension1.1..z7{right}..tension1.1..z6;
  1535. endchar;
  1536. beginchar("6",twd#+rm#,ht#,0); "6";
  1537.     pickup frame_pen;
  1538.     path p;
  1539.     z1 = (.75(w-rm),h);
  1540.     z2 = (1/2penwd,.8h);
  1541.     z3 = (.8(w-rm),.6h);
  1542.     p = z1{curl0}..z2{down}..{curl0}z3;
  1543.     z4 = point 1.7 of p;
  1544.     z5 = (.36(w-rm),.2h);
  1545.     z6 = (.9(w-rm),.25h);
  1546.     z7 = (.8(w-rm),.25h);
  1547.     z8 = (w-rm,-.2h);
  1548.     draw p;
  1549.     draw z4..z5..tension1.1..z6{up}..z7..tension2..{curl0}z8;
  1550. endchar;
  1551. beginchar("7",4/3twd#+rm#,ht#,0); "7";
  1552.     pickup frame_pen;
  1553.     z1=(1/2penwd,h);
  1554.     z2=(.6(w-rm),1/2penwd);
  1555.     z3=(w-rm,1/2h);
  1556.     z4=(.75(w-rm),.87h);
  1557.     draw z1{curl0}..tension1.2..z2{right}..z3{up}..z4{left}..tension.95..
  1558.     {curl.5}z3;
  1559. endchar;
  1560. beginchar("8",1.1twd#+rm#,ht#,0); "8";
  1561.     pickup frame_pen;
  1562.     z1=(0,.8h);
  1563.     z2=(w-rm,y1);
  1564.     draw z1--z2;
  1565.     z3=(.25(w-rm),y1);
  1566.     z4=(1/2penwd,.3h);
  1567.     z5=(.5(w-rm),.2h);
  1568.     z6=(w-rm,.15h);
  1569.     z7=(.9(w-rm),0);
  1570.     draw z3..z4{down}..tension1.1..z5..tension1.1..z6{down}..{curl0}z7;
  1571. endchar;
  1572. beginchar("9",1.1twd#+rm#,ht#,0); "9";
  1573.     pickup frame_pen; path p;
  1574.     z1 = (.4(w-rm),h);
  1575.     z2 = (1/2penwd,.8h);
  1576.     z3 = (w-rm,-.1h);
  1577.     p = z1{left}..z2{down}..tension2..{curl0}z3;
  1578.     z4 = point 1.23 of p;
  1579.     z5 = (.85(w-rm),-.2h);
  1580.     draw z4..tension1.2..p..{curl0}z5;
  1581. endchar;
  1582. beginchar("0",.5ht#+rm#,ht#,0); "0";
  1583.     pickup frame_pen; z1 =(1/4h+1/2penwd,1/2h);
  1584.     draw fullcircle scaled 1/2h shifted z1;
  1585. endchar;
  1586. beginchar(128,1.3twd#+brm#,ht#,0); "sr";
  1587.     italcorr brm#;
  1588.     pickup frame_pen;
  1589.     z1 = (w-rm-brm,h); z2 = (w,h);
  1590.     x3 = good.x w-brm; y3 = h; z4 = (x3,0);
  1591.     draw z1--z2;
  1592.     draw z3--z4;
  1593.     z5 = (w-brm,.45h);
  1594.     z6 = (x7,.2h);
  1595.     z7 = (.36(w-brm),h-2.5penwd);
  1596.     z8 = (1/2penwd,y5);
  1597.     z9 = (.8x7,h);
  1598.     draw z5--z6;
  1599.     draw z8--z7{right}..z9{left}..{right}z7--z5;
  1600. endchar;
  1601. beginchar(129,1.3twd#+brm#,ht#,0); "tt";
  1602.     italcorr brm#;
  1603.     frame;
  1604.     y5 = good.y 2/3h; x5=1/2penwd;
  1605.     z6 = (w-brm,y5);
  1606.     draw z5--z6;
  1607.         z8 = (0.65twd,y5); z7 = (0.85twd,0);
  1608.         draw z6---z8..{curl0}z7;
  1609. endchar;
  1610. beginchar(130,1.3twd#,ht#,0); "/tt";
  1611.         pickup frame_pen;
  1612.         z1 = (0,h); z2 = (w,h);
  1613.         draw z1--z2;
  1614.         y5 = good.y 2/3h; x5 = w;
  1615.         z6 = (.65twd,y5); z7 = (.85twd,0);
  1616.         draw z5---z6..{curl0}z7;
  1617.         z8 = (1/2penwd,y5);
  1618.         draw z8--z5;
  1619. endchar;
  1620. beginchar(131,1.55twd#+rm#,ht#,0); "ph+r";
  1621.     italcorr rm#+.65twd#;
  1622.     pickup frame_pen;
  1623.     z1=(0,h); z2=(w,h);
  1624.     x3=good.x .9twd; y3=h; z4=(x3,0);
  1625.     draw z1--z2; draw z3--z4;
  1626.     z5=(penwd,h);
  1627.     z6=(x3,.53h);
  1628.     x7=x5+.15x3;
  1629.     y7=y6-.08h;
  1630.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  1631.     z8=(w-rm,.5h);
  1632.     z9=(.94(w-rm),.1h);
  1633.     draw z6{curl.5}..z8{down}..tension1.3..z9;
  1634.     pickup sub_pen;
  1635.     z11=(x3,.45h);
  1636.     z12=(.1twd,1/2penwd);
  1637.     draw z11--z12;
  1638. endchar;
  1639. beginchar(132,1.55twd#+rm#,ht#,0); "fr";
  1640.     italcorr rm#+.65twd#;
  1641.     pickup frame_pen;
  1642.     z1=(0,h); z2=(w,h);
  1643.     x3=good.x .9twd; y3=h; z4=(x3,0);
  1644.     draw z1--z2; draw z3--z4;
  1645.     z5=(penwd,h);
  1646.     z6=(x3,.53h);
  1647.     x7=x5+.15x3;
  1648.     y7=y6-.08h;
  1649.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  1650.     z8=(w-rm,.5h);
  1651.     z9=(.94(w-rm),.1h);
  1652.     draw z6{curl.5}..z8{down}..tension1.3..z9;
  1653.     z10 = (0,.3h);
  1654.     sqdot(z10);
  1655.     pickup sub_pen;
  1656.     z11 = (x3,.4h);
  1657.     z12 = (.2twd,0);
  1658.     draw z11--z12;
  1659. endchar;
  1660. beginchar(133,1.8twd#+brm#,ht#,0); "jr";
  1661.     italcorr brm#;
  1662.     frame;
  1663.     x5 = 1/2penwd; y5 = good.x .66h;
  1664.     z7 = (.63twd,y5);
  1665.     z8 = (1.8twd,y5);
  1666.     z6 = (.73twd,.17h);
  1667.     draw z5{curl1.5}..tension1.2..z6{right}..{curl0}z7--z8;
  1668.     addto currentpicture also v[ASCII "}"] shifted (1.1twd,0);
  1669. endchar;
  1670. beginchar(134,1.8twd#+brm#,ht#,0); "zr";
  1671.     italcorr brm#;
  1672.     frame;
  1673.     x5 = 1/2penwd; y5 = good.x .66h;
  1674.     z7 = (.63twd,y5);
  1675.     z8 = (1.8twd,y5);
  1676.     z6 = (.73twd,.17h);
  1677.     draw z5{curl1.5}..tension1.2..z6{right}..{curl0}z7--z8;
  1678.     addto currentpicture also v[ASCII "}"] shifted (1.1twd,0);
  1679.     z11 = (1.2twd,.4h);
  1680.     sqdot(z11);
  1681. endchar;
  1682. beginchar(135,1.65twd#+rm#,ht#,0); "kr";
  1683.     italcorr rm#+.65twd#;
  1684.     pickup frame_pen;
  1685.     z1 = (0,h); z2 = (w,h);
  1686.     draw z1--z2;
  1687.     z3 = (twd,.5h);
  1688.     z4 = (w-rm,.5h);
  1689.     z5 = (w-rm-39/450twd,.1h);
  1690.     draw z3{curl.5}..z4{down}..tension1.3..z5;
  1691.     addto currentpicture also v[ASCII "/"];
  1692. endchar;
  1693. beginchar(136,1.2twd#+brm#,ht#,.1ht#); "d+dh";
  1694.     italcorr brm#; path p; path q;
  1695.     pickup frame_pen;
  1696.     lm := 5/6twd;
  1697.     z1=(0,h); z2=(w,h);
  1698.     x3=good.x w-brm; y3=h;
  1699.     z4=(x3,.72h);
  1700.     z5=(w-brm-lm+1/2penwd,.53h);
  1701.     z6=(x3,0.27h);
  1702.     z7= z6 + (.3thick*(dir(rot+90)));
  1703.     y8=-.3h; z8=z7+whatever*dir305;
  1704.     draw z1--z2; draw z3--z4;
  1705.     p = z4{left}..tension.9..{down}z5..tension.9 and 1.1..{dir30}z6;
  1706.     draw p;
  1707.     fill ((0,0)--(quartercircle rotated -45 & halfcircle rotated 45)--cycle)
  1708.     scaled (1.6*thick) shifted (z6 + .3thick*(dir rot));
  1709.     z9 = .4[z7,z8];
  1710.     z11 = point 1.6 of p;
  1711.     z10 = (w-brm-.8lm,y9);
  1712.     q = z11..z10{down}..tension1.1..{curl.2}z9;
  1713.     draw q;
  1714.     z12 = point 0.7 of q;
  1715.         z13 = (.15(w-brm),.45h);
  1716.     draw z12{curl.1}..tension1.2..z13{right};
  1717.     pickup penrazor scaled subthick;
  1718.     draw z7--z8;
  1719. endchar;
  1720. beginchar(137,1.2twd#+brm#,ht#,.1ht#); "d+bh";
  1721.     italcorr brm#;
  1722.     pickup frame_pen;
  1723.     z1= (0,h); z2= (w,h);
  1724.     draw z1--z2;
  1725.     x3= good.x w-brm; y3=h;
  1726.     z4= (x3,.76h);
  1727.     z5= (.42(w-brm),.62h);
  1728.     z6= (x3,.45h);
  1729.     z7= (x3,0);
  1730.     z9= (1/2penwd,.45h);
  1731.     z11= (.45(w-brm),0);
  1732.     z8= (x3,y11+penwd);
  1733.     z12= (x11-1/2penwd,y11+1/2penwd);
  1734.     draw z3--z4{left}..tension1.3..z5{down}..tension1.2..{curl.2}z6--z7;
  1735.     draw z9{right}..tension.9..{down}z11;
  1736.     draw (reverse halfcircle rotated rot scaled usthick
  1737.           shifted z12) --z8;
  1738. endchar;
  1739. beginchar(138,twd#+brm#,ht#,.3ht#); "d+gh";
  1740.     italcorr brm#; path p; path q;
  1741.     pickup frame_pen;
  1742.     z1= (0,h); z2= (w,h);
  1743.     draw z1--z2;
  1744.     x3= good.x w-brm; y3=h;
  1745.     z4 =(x3,.74h);
  1746.     z5= (.22(w-brm),.61h);
  1747.     z6= (x3,.42h);
  1748.     z7= (x3,-.3h);
  1749.     z8= (x3,0);
  1750.     draw z3--z4;
  1751.     p= z4{left}..tension1.4..z5{down}..tension1.4..{curl.3}z6--z7;
  1752.     draw p;
  1753.     z9= point 1.25 of p;
  1754.     z10= (.15x3,0);
  1755.     z11= (.5x3,.15h);
  1756.     q= z8{curl0}..z10{up}...{right}z11;
  1757.     draw q;
  1758.     z12= point 1.7 of q;
  1759.     vardef yup(expr y)= xpart direction 1 of (z12{curl0}..(1/2penwd,y)
  1760.                ..{right}z9) < 0
  1761.     enddef;
  1762.     z13= (1/2penwd,solve yup(y12,y9));
  1763.     draw z12{curl.2}..z13..{right}z9;
  1764. endchar;
  1765. beginchar(139,.95twd#+brm#,ht#,.45ht#); "d+g";
  1766.     italcorr brm#; path p; path q;
  1767.     pickup frame_pen;
  1768.     z1=(0,h); z2=(w,h);
  1769.     x3=good.x w-brm; y3=h;
  1770.     z4=(x3,.72h);
  1771.     z5=(1/2penwd,.5h);
  1772.     z6=(x3,0.27h);
  1773.     z7= z6 + (.3thick*(dir(rot)));
  1774.     z8= (x7,-.45h);
  1775.     draw z1--z2; draw z3--z4;
  1776.     p =  z4{left}..{down}z5..tension1.2..{dir30}z6;
  1777.     draw p;
  1778.     draw z7--z8;
  1779.     fill ((0,0)--(quartercircle rotated -45 & halfcircle rotated 45)--cycle)
  1780.     scaled (1.6*thick) shifted (z6 + .3thick*(dir rot));
  1781.     z9 = point 1.35 of p;
  1782.     z10 = (.5x9,y9-.5h);
  1783.     z12 = (1/2penwd,y10+.08h);
  1784.     q = z9{down}..tension1.3..z10{left}..z12{up};
  1785.     z13 = point 1.3 of q;
  1786.     draw q..{curl.2}z13;    
  1787. endchar;
  1788. beginchar(140,5/6twd#+brm#,ht#,.1ht#); "d+d";
  1789.     italcorr brm#+.15twd#;
  1790.     pickup frame_pen;
  1791.     path p;
  1792.     z1 = (0,h); z2 = (w,h);
  1793.     x3 = good.x w-brm; y3 = h;
  1794.     z4 = (x3,.4h);
  1795.     z5 = (1/2penwd,.22h);
  1796.     z6 = (x3+penwd,1/2penwd);
  1797.     z7 = (x3,y6);
  1798.     y8 = -.3h; z8 = z7+whatever*dir305;
  1799.     draw z1--z2; 
  1800.     p = z4{curl0}..tension1.2..{down}z5..tension1.1..{curl.2}z6;
  1801.     draw p;
  1802.     draw z6..tension1.2..z7{down}..tension1.3..{curl0}z8;
  1803.     z9 = (x3,.73h);
  1804.     z10 = (1/2penwd,.56h);
  1805.     z11 = point 0.5 of p;
  1806.     draw z3--z9;
  1807.     draw z9{left}..{down}z10..{curl.3}z11;
  1808. endchar;
  1809. beginchar(141,1.4twd#+brm#,ht#,0); "d+y";
  1810.     italcorr brm#;
  1811.     frame;
  1812.     x10=good.x 5/6twd; y10=y1;
  1813.     z7=(x10,.72h);
  1814.     z5=(1/2penwd,.53h);
  1815.     z6=(x10,0.35h);
  1816.     z8=(x10-.15twd,y6);
  1817.     z9=(x3,.2h);
  1818.     z11 = (.95twd,0);
  1819.     draw z10--z7;
  1820.     draw z7{left}..tension.9..{down}z5..tension.9 and 1.1..{dir30}z6..
  1821.       z8{dir225}..z11{right}..{curl.5}z9;
  1822. endchar;
  1823. beginchar(142,1.75twd#+brm#,ht#,0); "d+bh+y";
  1824.     italcorr brm#;
  1825.     frame; path p;
  1826.     x13=good.x 1.2twd; y13=y1;
  1827.     z14= (x13,.76h);
  1828.     z5= (.37x13,.63h);
  1829.     z6= (x13,.45h);
  1830.     z7= (x13,0);
  1831.     z9= (0,.6h);
  1832.     z11= (.3x13,.05h);
  1833.     z8= (x13,y11+penwd);
  1834.         z12= (x11+.1twd,y11);
  1835.     p =  z13--z14{left}..tension1.4..z5{down}..tension1.4..{curl.5}z6..
  1836.     tension1.6..z11..z12{up}..tension1.2..z9;
  1837.     draw p;
  1838.     z10= point 3.4 of p;
  1839.     z15= (x3,0.15h);
  1840.     draw z10..tension.95..{right}z15;
  1841. endchar;
  1842. beginchar(143,1.8twd#+brm#,ht#,0); "d+dh+y";
  1843.     italcorr brm#; path p; path q;
  1844.     frame;
  1845.     x10=good.x 5/6twd + .4twd; y10=y1;
  1846.     z7=(x10,.73h);
  1847.     z5=(.4twd+1/2penwd,.59h);
  1848.     z6=(x10,0.4h);
  1849.     z8=(x7-.15twd,y6);
  1850.     z9=(x3,.25h);
  1851.     draw z10--z7;
  1852.     p = z7{left}..tension1.4..{down}z5..tension1.4..{dir30}z6..
  1853.     z8{dir220}..tension.9..{dir40}z9;
  1854.     draw p;
  1855.     z11 = point 3.5 of p;
  1856.         z12 = (.36(w-brm),0);
  1857.     z13 = (.36(w-brm),.36h);
  1858.         q = z11{curl0.5}..z12{left}..z13{right};
  1859.     z14 = point 1.75 of q;
  1860.     draw q;
  1861.     z15 = (1/2penwd,.65h);
  1862.     draw z14..z15{up};
  1863. endchar;
  1864. beginchar(144,1.45twd#+brm#,ht#,.3ht#); "d+d+y";
  1865.     italcorr brm#;
  1866.     frame;
  1867.     path p; 
  1868.     x12 = good.x 5/6twd; y12 = h;
  1869.     z13 = (x12,.4h);
  1870.     z5 = (1/2penwd,.22h);
  1871.     z6 = (x12+1/2penwd,1/2penwd);
  1872.     z7 = (x12,y6);
  1873.     p = z13{curl0}..tension1.2..{down}z5..tension1.1..{curl.2}z6;
  1874.     draw p;
  1875.     z14 = (x3,-.1h);
  1876.     z15 = (x6,-.3h);
  1877.     draw z6{left}..tension.95..z15{right}..{curl.5}z14;
  1878.     z9 = (x12,.73h);
  1879.     z10 = (1/2penwd,.56h);
  1880.     z11 = point 0.5 of p;
  1881.     draw z12--z9;
  1882.     draw z9{left}..{down}z10..{curl.3}z11;
  1883.     z8 = (x3,-.3h);
  1884.     draw z3--z8;
  1885. endchar;
  1886. beginchar(145,5/6twd#+brm#,ht#,.2ht#); "d+n";
  1887.     italcorr brm#;
  1888.     pickup frame_pen;
  1889.     z1= (0,h); z2= (w,h);
  1890.     x3= good.x w-brm; y3= h;
  1891.     z4= (x3,.72h);
  1892.     z5= (1/2penwd,.53h);
  1893.     z6= (x3,0.4h);
  1894.     z7= (x3,-.2h);
  1895.     draw z1--z2; draw z3--z4;
  1896.     draw z4{left}..tension.9..{down}z5..tension1.2..{curl.2}z6;
  1897.     draw z6--z7;
  1898.     low_n(1.1penwd,1/2penwd);
  1899. endchar;
  1900. beginchar(146,5/6twd#+brm#,ht#,.1ht#); "d+v";
  1901.     italcorr brm#; path p;
  1902.     pickup frame_pen;
  1903.     z1=(0,h); z2=(w,h);
  1904.     x3=good.x w-brm; y3=h;
  1905.     z4=(x3,.72h);
  1906.     z5=(1/2penwd,.53h);
  1907.     z6=(x3,0.27h);
  1908.     z7= z6 + (.3thick*(dir(rot+90)));
  1909.     y8=-.3h; z8=z7+whatever*dir305;
  1910.     draw z1--z2; draw z3--z4;
  1911.     p = z4{left}..tension.9..{down}z5..tension.9 and 1.1..{dir30}z6;
  1912.     draw p;
  1913.     fill ((0,0)--(quartercircle rotated -45 & halfcircle rotated 45)--cycle)
  1914.     scaled (1.6*thick) shifted (z6 + .3thick*(dir rot));
  1915.     z9 = .3[z7,z8];
  1916.     z11 = point 1.7 of p;
  1917.     z10 = (.15(w-brm),y9);
  1918.     draw z11{curl.2}..tension1.1..z10{down}..tension1.2..{curl.5}z9;
  1919.     pickup penrazor scaled subthick;
  1920.     draw z7--z8;
  1921. endchar;
  1922. beginchar(147,5/6twd#+brm#,ht#,.1ht#); "d+b";
  1923.     italcorr brm#; path p; path q;
  1924.     pickup frame_pen;
  1925.     z1=(0,h); z2=(w,h);
  1926.     x3=good.x w-brm; y3=h;
  1927.     z4=(x3,.72h);
  1928.     z5=(1/2penwd,.53h);
  1929.     z6=(x3,0.27h);
  1930.     z7= z6 + (.3thick*(dir(rot+90)));
  1931.     y8=-.3h; z8=z7+whatever*dir305;
  1932.     draw z1--z2; draw z3--z4;
  1933.     p = z4{left}..tension.9..{down}z5..tension.9 and 1.1..{dir30}z6;
  1934.     draw p;
  1935.     fill ((0,0)--(quartercircle rotated -45 & halfcircle rotated 45)--cycle)
  1936.     scaled (1.6*thick) shifted (z6 + .3thick*(dir rot));
  1937.     z9 = .3[z7,z8];
  1938.     z10 = (.15(w-brm),y9);
  1939.     z11 = point 1.7 of p;
  1940.     q = z11{curl.2}..tension1.1..z10{down}..tension1.2..{curl.5}z9;
  1941.     draw q;
  1942.     z14 = point .3 of q;
  1943.     z12 = z14 + whatever*dir305;
  1944.     y12 = -.6h;
  1945.     z13 = q intersectionpoint (.1[z14,z12]--z12);
  1946.     pickup penrazor scaled subthick;
  1947.     draw z7--z8;
  1948.     draw z14--z13;
  1949. endchar;
  1950. beginchar(148,1.2twd#+brm#,ht#,0); "d+m";
  1951.     italcorr brm#;
  1952.     frame;
  1953.     z5= (.6x3,h);
  1954.     z6= (x5,.72h);
  1955.     z7= (1/2penwd,.6h);
  1956.     z9= (.45x3-1/2penwd,.3h);
  1957.     z8= (.45x3,y9-.5penwd);
  1958.     z10= (x3,y9);
  1959.     draw z5--z6{left}..tension1.4..z7{down}..z8{down}..
  1960.     tension.9..{right}z9--z10;
  1961. endchar;
  1962. beginchar(149,1.45twd#+brm#,ht#,.1ht#); "d+v+y";
  1963.     italcorr brm#; path p;
  1964.     frame;
  1965.     x10=good.x (5/6twd + .05twd); y10=y1;
  1966.     z7=(x10,.72h);
  1967.     z5=(1/2penwd + .05twd,.53h);
  1968.     z6=(x10,0.35h);
  1969.     z8=(x10-.15twd,y6);
  1970.     z9=(x3,.2h);
  1971.         z14 = (.95twd+.05twd,0);
  1972.     draw z10--z7;
  1973.     p = z7{left}..tension.9..{down}z5..tension.9 and 1.1..{dir30}z6..
  1974.     z8{dir225}..z14{right}..{curl.5}z9;
  1975.         draw p;
  1976.     z11 = point 3.4 of p;
  1977.     z12 = (1/2penwd,0);
  1978.         z13 = point 3.6 of p;
  1979.     draw z11..tension1.3..z12{down}..tension1.3..{curl.5}z13;
  1980. endchar;
  1981. beginchar(150,1.3twd#+brm#,ht#,0); "'s + c";
  1982.         italcorr brm#;
  1983.         frame;
  1984.         z5= (x3,.5h);
  1985.     z7= (.45(w-brm),.67h);
  1986.     z8= (1/2penwd,.55h);
  1987.     z9= (.8x7,h);
  1988.     draw z8--z7{right}..z9{left}..{right}z7;
  1989.     y6= good.y .33h; x6= .23(w-brm);
  1990.     z10= (w-brm-penwd,y6);
  1991.     z11= (.5(w-brm),.15h);
  1992.     z12= (x3,.15h);
  1993.     z13= (.6(w-brm),y6);
  1994.     draw z6--z10;
  1995.     draw z13..z11{down}..tension1.1..{curl0.1}z12;
  1996.     draw z7--z5;
  1997. endchar;
  1998. beginchar(151,1.3twd#+brm#,ht#,0); "'s + n";
  1999.         italcorr brm#;
  2000.         frame;
  2001.         z5= (x3,.5h);
  2002.     z7= (.45(w-brm),.67h);
  2003.     z8= (1/2penwd,.55h);
  2004.     z9= (.8x7,h);
  2005.     draw z8--z7{right}..z9{left}..{right}z7;
  2006.     low_n(.4(w-brm),.28h);
  2007.     draw z7--z5;
  2008. endchar;
  2009. beginchar(152,1.3twd#+brm#,ht#,0); "'s + v";
  2010.         italcorr brm#;
  2011.         frame;
  2012.         z5= (x3,.5h);
  2013.     z7= (.45(w-brm),.67h);
  2014.     z8= (1/2penwd,.55h);
  2015.     z9= (.8x7,h);
  2016.     draw z8--z7{right}..z9{left}..{right}z7;
  2017.         z6=(x3,.35h);
  2018.         z10=(.45(w-brm),.28h);
  2019.         z11=(x3,.21h);
  2020.         draw z6{curl.3}..tension1.2..z10{down}..tension1.2..{curl.3}z11;
  2021.     draw z7--z5;
  2022. endchar;
  2023. beginchar(153,1.3twd#+brm#,ht#,0); "'s + r";
  2024.         italcorr brm#;
  2025.         frame;
  2026.         z5= (x3,.5h);
  2027.     z7= (.45(w-brm),.67h);
  2028.     z8= (1/2penwd,.53h);
  2029.     z9= (.8x7,h);
  2030.     draw z8--z7{right}..z9{left}..{right}z7;
  2031.         z6=(x3,.38h);
  2032.         z10=(.45(w-brm),.2h);
  2033.     draw z5--z10;
  2034.     draw z7--z5;
  2035. endchar;
  2036. beginchar(154,1.3twd#+brm#,ht#,0); "'s + l";
  2037.         italcorr brm#;
  2038.         frame;
  2039.         z5= (x3,.5h);
  2040.     z7= (.45(w-brm),.67h);
  2041.     z8= (1/2penwd,.55h);
  2042.     z9= (.8x7,h);
  2043.     draw z8--z7{right}..z9{left}..{right}z7;
  2044.     z6=(x3,.36h);
  2045.     z10=(5/8x3,.16h);
  2046.     z11=(1/4x3,.36h);
  2047.     z12=(1/2penwd,.26h);
  2048.     z13=(3/8x3,-.04h);
  2049.     draw z6{left}..{curl4}z10;
  2050.     draw z10{curl6}..{left}z11..{down}z12..{curl0}z13;
  2051.     draw z7--z5;
  2052. endchar;
  2053. beginchar(155,1.3twd#+brm#,ht#,0); "'s + b";
  2054.         italcorr brm#;
  2055.         frame; path p;
  2056.         z5= (x3,.5h);
  2057.     z7= (.45(w-brm),.67h);
  2058.     z8= (1/2penwd,.55h);
  2059.     z9= (.8x7,h);
  2060.     draw z8--z7{right}..z9{left}..{right}z7;
  2061.         z6=(x3,.35h);
  2062.         z10=(.45(w-brm),.28h);
  2063.         z11=(x3,.21h);
  2064.         p = z6{curl.3}..tension1.2..z10{down}..tension1.2..{curl.3}z11;
  2065.     draw p;
  2066.     z12=(.73(w-brm),.28h);
  2067.     y13=h; y14=0;
  2068.     z13= z12 + whatever*dir125;
  2069.     z14= z12 + whatever*dir305;
  2070.     z15= p intersectionpoint (z12--z13);
  2071.     z16= p intersectionpoint (z12--z14);
  2072.     draw z15--z16;
  2073.     draw z7--z5;
  2074. endchar;
  2075. beginchar(156,1.6twd#+brm#,ht#,.2ht#); "h + m";
  2076.     italcorr brm#; path p;
  2077.     lm := 1.1twd; 
  2078.     frame;
  2079.     x11 = good.x .8lm; y11=h; z12=(x11,.75h);
  2080.     z5 = (1/2penwd,.65h); 
  2081.     z7 = (.65lm,1/2penwd); z8=(lm,.27h);
  2082.     z9 = (.9lm,-.3h);
  2083.     z10 = (1/2penwd,.2h);
  2084.     z14 = (.9lm-.5penwd,.1h);
  2085.     z13 = (.9lm,y14-.5penwd);
  2086.     z15 = (x3,y14);
  2087.     z16 = (x13,.25h);
  2088.     p =  z9{curl0}..tension1.3..z10{up}..tension1.3..z16---z13..
  2089.       tension.9..{right}z14--z15;
  2090.     draw p;
  2091.     z6 = point 1.3 of p;
  2092.     z17 = (x3,-.2h);
  2093.     draw z3--z17;
  2094.     draw z11--z12{left}...z5{down}..z6;
  2095. endchar;
  2096. beginchar(157,1.6twd#+brm#,ht#,.2ht#); "h + y";
  2097.     italcorr brm#; path p;
  2098.     lm := 1.1twd; 
  2099.     frame;
  2100.     x11 = good.x .8lm; y11=h; z12=(x11,.75h);
  2101.     z5 = (1/2penwd,.65h); 
  2102.     z7 = (.65lm,1/2penwd); z8=(lm,.27h);
  2103.     z9 = (.9lm,-.3h);
  2104.     z10 = (1/2penwd,.2h);
  2105.     z13 = (.65lm,.1h);
  2106.     z14 = (x3,.2h);
  2107.         z15 = (.62lm,.45h);
  2108.     p =  z9{curl0}..tension1.3..z10{up}..z15{right}..{left}z13;
  2109.     draw z13{dir-70}..tension1.1..{curl.2}z14;
  2110.     draw p;
  2111.     z6 = point 1.5 of p;
  2112.     draw z11--z12{left}...z5{down}..z6;
  2113.     z17 = (x3,-.2h);
  2114.     draw z3--z17;
  2115. endchar;
  2116. beginchar(158,2.2twd#+rm#,ht#,.25ht#); "h+l";
  2117.     italcorr rm#+.5twd#;
  2118.     path p; path q;
  2119.     lm := 1.1twd; pickup frame_pen;
  2120.     xoff := w-rm-lm;
  2121.     z1 = (0,h); z2 = (w,h);
  2122.     draw z1--z2;
  2123.     x3 = good.x xoff+.8lm; y3 = h; z4 = (x3,.75h);
  2124.     z5 = (xoff+1/2penwd,.65h); z6 = (xoff+.4lm,.4h);
  2125.     z7 = (xoff+.65lm,1/2penwd); z8 = (w-rm,.27h);
  2126.     z9 = (xoff+1.1lm,-.3h);
  2127.     z10 = (xoff+1/2penwd,.2h);
  2128.     draw z3--z4{left}...z5{down}..z6;
  2129.     p =  z7..z8{up}..tension1.0 and 1.2..z6..z10{down}..
  2130.           tension1.3..{curl0}z9;
  2131.     draw p;
  2132.     z11 = (.8xoff,y9);
  2133.     z12 = (1/2penwd,.1h);
  2134.     z13 = (.9xoff,-.1h);
  2135.     q = z11{curl0}..tension1.1..z12{up}..tension1.3..{curl0}z13;
  2136.     draw q;
  2137.     z14= point 1.65 of q;
  2138.     z15 = point 3.1 of p;
  2139.     draw z14{dir30}..{curl0.5}z15;
  2140. endchar;
  2141. beginchar(159,1.65twd#+rm#,ht#,.35ht#); "h+v";
  2142.     italcorr rm#+.5twd#;
  2143.     path p;
  2144.     lm := 1.1twd; pickup frame_pen;
  2145.     xoff := w-rm-lm;
  2146.     z1 = (0,h); z2 = (w,h);
  2147.     draw z1--z2;
  2148.     x3 = good.x xoff+.8lm; y3 = h; z4 = (x3,.75h);
  2149.     z5 = (xoff+1/2penwd,.65h); z6 = (xoff+.4lm,.4h);
  2150.     z7 = (xoff+.65lm,1/2penwd); z8 = (w-rm,.27h);
  2151.     z9 = (xoff+1.1lm,-.3h);
  2152.     z10 = (xoff+1/2penwd,.2h);
  2153.     draw z3--z4{left}...z5{down}..z6;
  2154.     p=z7..z8{up}..tension1.0 and 1.2..z6..z10{down}..tension1.3..{curl0}z9;
  2155.     draw p;
  2156.     z11 = point 3.4 of p;
  2157.     z12 = point 3.5 of p;
  2158.     z13 = (1/2penwd,y12);
  2159.         draw z11{curl.2}..tension1.3..z13{down}..tension1.3..{curl.5}z12;
  2160. endchar;
  2161. beginchar(160,1.5twd#+rm#,ht#,.25ht#); "h+r";
  2162.     italcorr rm#+.5twd#;
  2163.     path p;
  2164.     lm := 1.1twd; pickup frame_pen;
  2165.     xoff := w-rm-lm;
  2166.     z1 = (0,h); z2 = (w,h);
  2167.     draw z1--z2;
  2168.     x3 = good.x xoff+.8lm; y3 = h; z4 = (x3,.75h);
  2169.     z5 = (xoff+1/2penwd,.65h); z6 = (xoff+.4lm,.4h);
  2170.     z7 = (xoff+.65lm,1/2penwd); z8 = (w-rm,.27h);
  2171.     z9 = (xoff+1.1lm,-.3h);
  2172.     z10 = (xoff+1/2penwd,.2h);
  2173.     draw z3--z4{left}...z5{down}..z6;
  2174.     p=z7..z8{up}..tension1.0 and 1.2..z6..z10{down}..tension1.3..{curl0}z9;
  2175.     draw p;
  2176.     z11 = point 3.3 of p;
  2177.     z12 = (1/2penwd,y9);
  2178.     draw z12--z11;
  2179. endchar;
  2180. beginchar(161,1.6twd#+rm#,ht#,.25ht#); "h+n";
  2181.     italcorr rm#+.5twd#;
  2182.         path p;
  2183.     lm := 1.1twd; pickup frame_pen;
  2184.     xoff := w-rm-lm;
  2185.     z1 = (0,h); z2 = (w,h);
  2186.     draw z1--z2;
  2187.     x3 = good.x xoff+.8lm; y3 = h; z4 = (x3,.75h);
  2188.     z5 = (xoff+1/2penwd,.65h); z6 = (xoff+.4lm,.4h);
  2189.     z7 = (xoff+.65lm,1/2penwd); z8 = (w-rm,.27h);
  2190.     z9 = (xoff+1.1lm,-.3h);
  2191.     z10 = (xoff+1/2penwd,.2h);
  2192.     draw z3--z4{left}...z5{down}..z6;
  2193.     p=z7..z8{up}..tension1.0 and 1.2..z6..z10{down}..tension1.3..{curl0}z9;
  2194.     draw p;
  2195.     z11 = point 3.3 of p;
  2196.     z13 = (1.25penwd,y9+.75penwd);
  2197.         z12 = (x13,y13+.75penwd);
  2198.         filldraw fullcircle scaled 1.5penwd shifted(x13,y13);
  2199.     draw z12--z11;
  2200. endchar;
  2201. beginchar(162,1.4twd#+rm#,ht#,.2ht#); "h+.n";
  2202.     italcorr rm#+.85twd#;
  2203.     path p;
  2204.     lm := 1.1twd; pickup frame_pen;
  2205.     z1 = (0,h); z2 = (w,h);
  2206.     draw z1--z2;
  2207.     x3 = good.x .8lm; y3 = h; z4 = (x3,.75h);
  2208.     z5 = (1/2penwd,.65h); z6 = (.4lm,.4h);
  2209.     z7 = (w-rm,-.1h); z8 = (x7,y6);
  2210.     z9 = (1.0lm,-.3h);
  2211.     z10 = (1/2penwd,.2h);
  2212.         z11 = (.45(w-rm),y6);
  2213.     z12 = (.7(w-rm),y6);
  2214.     z13 = (.5[x11,x12],0);
  2215.     draw z3--z4{left}...z5{down}..z6;
  2216.     draw z7---z8---z6..z10{down}..
  2217.       tension1.3..{curl0}z9;
  2218.     draw z11{down}..z13{right}..z12{up};
  2219. endchar;
  2220. beginchar(163,1.15twd#+rm#,ht#,0); ".s+.t";
  2221.     path p;
  2222.     italcorr rm#+.5twd#;
  2223.     pickup frame_pen;
  2224.     z1=(0,h); z2=(w,h);
  2225.     draw z1--z2;
  2226.     lm:= w-rm;
  2227.     x3=good.x .75lm; y3=h;
  2228.     z4=(x3,.53h);
  2229.     z6=(.55lm,0);
  2230.     z7=(lm,.1h);
  2231.     draw z3--z4;
  2232.     vardef dwn(expr y) = xpart direction 1 of (z4{curl0}..tension1.2..
  2233.       (1/2penwd,y)..{right}z6..{curl0}z7) < 0 enddef;
  2234.     z5 = (1/2penwd,solve dwn(y4,y6));
  2235.     p =  z4{curl0}..tension1.2..z5..z6{right}..{curl0}z7;
  2236.     draw p;
  2237.     z9 = point 0.45 of p;
  2238.     z10 = (penwd,h);
  2239.     z11 = (1/2penwd,.72h);
  2240.     draw z10..z11{down}..{curl.3}z9;
  2241.     pickup penrazor scaled subthick;
  2242.     draw (1/2penwd,h)--(x3,y4);
  2243. endchar;
  2244. beginchar(164,1.15twd#+rm#,ht#,0); ".s+.th";
  2245.     path p;
  2246.     italcorr rm#+.5twd#;
  2247.     pickup frame_pen;
  2248.     z1=(0,h); z2=(w,h);
  2249.     draw z1--z2;
  2250.     lm:= w-rm;
  2251.     x3=good.x .75lm; y3=h;
  2252.     z4=(x3,.5h);
  2253.     z6=(.55lm,0);
  2254.     z7=(lm,y5);
  2255.     z8=(x4+1/2penwd,y4-penwd);
  2256.     draw z3--z4;
  2257.     vardef dwn(expr y) = xpart direction 1 of (z4{curl0}..tension1.1..
  2258.       (1/2penwd,y)..{right}z6) < 0 enddef;
  2259.     z5 = (1/2penwd,solve dwn(y4,y6));
  2260.     p =  z4{curl0}..tension1.1..z5..z6{right}..z7{up}..(x8+1/2penwd,y8);
  2261.     draw p;
  2262.     z9 = point 0.45 of p;
  2263.     z10 = (penwd,h);
  2264.     z11 = (1/2penwd,.72h);
  2265.     draw z10..z11{down}..{curl.3}z9;
  2266.     pickup penrazor scaled subthick;
  2267.     draw (1/2penwd,h)--z4;
  2268. endchar;
  2269. beginchar(165,4/3twd#+brm#,ht#,0); "l + l";
  2270.     italcorr brm#;
  2271.     path p; path q;
  2272.     frame; z5=(x3,.75h);
  2273.     z6=(.625x3,.48h);
  2274.     z7=(.25x3,.75h);
  2275.     z8=(1/2penwd,.58h);
  2276.     z9=(.2x3,.3h);
  2277.     draw z5{left}..{curl4}z6;
  2278.     p = z6{curl6}..{left}z7..{down}z8..{curl0}z9;
  2279.     hdif := .43h;
  2280.     z10 = (x5,y5-hdif);
  2281.     z11 = (x6,y6-hdif);
  2282.     z12 = (x7,y7-hdif);
  2283.     z13 = (x8,y8-hdif);
  2284.     z14 = (x9,y9-hdif);
  2285.     draw z10{left}..{curl4}z11;
  2286.     q = z11{curl6}..{left}z12..{down}z13..{curl0}z14;
  2287.     draw q;
  2288.     draw subpath (0,xpart(p intersectiontimes q)) of p;
  2289. endchar;
  2290. beginchar(166,11/12twd#+brm#,ht#,.2ht#); "v+n";
  2291.     italcorr brm#;
  2292.     frame; z5 = (x3,.56h);
  2293.     z6 = (1/2penwd,.54h);
  2294.     z7 = (x3,.52h);
  2295.     draw z5..tension1.5..z6{down}..tension1.5..z7;
  2296.     z8 = (x3,-.2h);
  2297.     draw z3--z8;
  2298.     low_n(1.1penwd,1/2penwd);
  2299. endchar;
  2300. beginchar(167,11/12twd#+brm#,ht#,.2ht#); "b+n";
  2301.     italcorr brm#; path p;
  2302.     frame; z5 = (x3,.56h);
  2303.     z6 = (1/2penwd,.54h);
  2304.     z7 = (x3,.52h);
  2305.     p = z5..tension1.5..z6{down}..tension1.5..z7;
  2306.     draw p;
  2307.     y8 = h; z9 = (.58x3,.54h);
  2308.     z8 = z9 + whatever*dir125;
  2309.     y10 = 0;
  2310.     z10 = z9 + whatever*dir305;
  2311.     z11 = p intersectionpoint (z9--z8);
  2312.     z12 = p intersectionpoint (z9--z10);
  2313.     draw z11--z12;
  2314.     z13 = (x3,-.2h);
  2315.     draw z13--z3;
  2316.     low_n(1.1penwd,1/2penwd);
  2317. endchar;
  2318. beginchar(168,11/12twd#+brm#,ht#,.3ht#); "v+v";
  2319.     italcorr brm#;
  2320.     frame; z5 = (x3,.62h);
  2321.     z6 = (1/2penwd,.6h);
  2322.     z7 = (x3,.58h);
  2323.     draw z5..tension1.5..z6{down}..tension1.5..z7;
  2324.     z8 = (x3,-.3h);
  2325.     draw z3--z8;
  2326.     z9 = (x3,.06h);
  2327.     z10 = (1/2penwd,.04h);
  2328.     z11 = (x3,.02h);
  2329.     draw z9..tension1.5..z10{down}..tension1.5..z11;
  2330. endchar;
  2331. beginchar(169,11/12twd#+brm#,ht#,.3ht#); "b+b";
  2332.     italcorr brm#; path p; path q;
  2333.     frame; z5 = (x3,.62h);
  2334.     z6 = (1/2penwd,.6h);
  2335.     z7 = (x3,.58h);
  2336.     p =  z5..tension1.5..z6{down}..tension1.5..z7;
  2337.     draw p;
  2338.     z8 = (x3,-.3h);
  2339.     draw z3--z8;
  2340.     z9 = (x3,.06h);
  2341.     z10 = (1/2penwd,.04h);
  2342.     z11 = (x3,.02h);
  2343.     q = z9..tension1.5..z10{down}..tension1.5..z11;
  2344.     draw q;
  2345.     y12 = h; z13 = (.58x3,.6h);
  2346.     z12 = z13 + whatever*dir125;
  2347.     y14 = 0;
  2348.     z14 = z13 + whatever*dir305;
  2349.     z15 = p intersectionpoint (z13--z12);
  2350.     z16 = p intersectionpoint (z13--z14);
  2351.     draw z15--z16;
  2352.     y18 = h; z19 = (.58x3,.04h);
  2353.     z18 = z19 + whatever*dir125;
  2354.     y20 = -.3h;
  2355.     z20 = z19 + whatever*dir305;
  2356.     z21 = q intersectionpoint (z19--z18);
  2357.     z22 = q intersectionpoint (z19--z20);
  2358.     draw z21--z22;
  2359. endchar;
  2360. beginchar(170,1.9twd#+brm#,ht#,.3ht#); ".s+.t+r+y";
  2361.     path p;
  2362.     italcorr brm#;
  2363.     frame;
  2364.     lm:= 1.15twd;
  2365.     x23=good.x .75lm; y23=h;
  2366.     z24=(x23,.53h);
  2367.     z6=(.55lm,0);
  2368.     z7=(lm,.1h);
  2369.     draw z23--z24;
  2370.     vardef dwn(expr y) = xpart direction 1 of (z24{curl0}..tension1.2..
  2371.       (1/2penwd,y)..{right}z6..{curl0}z7) < 0 enddef;
  2372.     z5 = (1/2penwd,solve dwn(y24,y6));
  2373.     p =  z24{curl0}..tension1.2..z5..z6{right}..{curl0}z7;
  2374.     draw p;
  2375.     z9 = point 0.45 of p;
  2376.     z10 = (penwd,h);
  2377.     z11 = (1/2penwd,.72h);
  2378.     draw z10..z11{down}..{curl.3}z9;
  2379.     z12 = (.55lm,-.4h);
  2380.     draw z7--z12;
  2381.     z13 = (w-brm,0);
  2382.     draw z7{dir-80}..{curl.5}z13;
  2383.     z14 = (x3,-.3h);
  2384.     draw z3--z14;
  2385.     pickup penrazor scaled subthick;
  2386.     draw (1/2penwd,h)--z24;
  2387. endchar;
  2388. beginchar(171,1.15twd#+rm#,ht#,.4ht#); ".s+.t+v";
  2389.     path p;
  2390.     italcorr rm#+.4twd#;
  2391.     pickup frame_pen;
  2392.     z1=(0,h); z2=(w,h);
  2393.     draw z1--z2;
  2394.     lm:= w-rm;
  2395.     x3=good.x .75lm; y3=h;
  2396.     z4=(x3,.53h);
  2397.     z6=(.55lm,0);
  2398.     z7=(lm,.1h);
  2399.     draw z3--z4;
  2400.     vardef dwn(expr y) = xpart direction 1 of (z4{curl0}..tension1.2..
  2401.       (1/2penwd,y)..{right}z6..{curl0}z7) < 0 enddef;
  2402.     z5 = (1/2penwd,solve dwn(y4,y6));
  2403.     p =  z4{curl0}..tension1.2..z5..z6{right}..{curl0}z7;
  2404.     draw p;
  2405.     z9 = point 0.45 of p;
  2406.     z10 = (penwd,h);
  2407.     z11 = (1/2penwd,.72h);
  2408.     draw z10..z11{down}..{curl.3}z9;
  2409.     z12 = point 1.6 of p;
  2410.     z13 = point 2.4 of p;
  2411.     z14 = (x13,y13-.5h);
  2412.     z15 = .6[z14,z13];
  2413.     z16 = (1/2penwd,.2[y15,y12]);
  2414.     draw z13--z14;
  2415.     draw z12..tension1.2..z16{down}..tension1.3..{curl.4}z15;
  2416.     pickup penrazor scaled subthick;
  2417.     draw (1/2penwd,h)--z4;
  2418. endchar;
  2419. beginchar(172,13/17twd#+.25twd#+rm#+2penwd#,ht#,.4ht#); "-n+k";
  2420.     italcorr rm#+.5twd#; path p;
  2421.     pickup frame_pen;
  2422.     z1=(0,h); z2=(w,h);
  2423.     x3 = good.x w-rm-2penwd; y3=h;
  2424.     z4 = (x3,.74h); z5 = (.25twd+1/2penwd,.6h);
  2425.     z6 = (x3+1/2penwd,.36h);
  2426.     z7 = (1/2(.25twd+x3),1/7h);
  2427.     z8 = (1/2penwd,.45h);
  2428.     z9 = (w-rm,.45h+.8penwd); sqdot(z9);
  2429.     draw z1--z2; draw z3--z4;
  2430.     p = z4{left}..z5{down}..z6{down}..z7{left}..z8;
  2431.     draw p;
  2432.     z16 = point 2.75 of p;
  2433.     z10 = (x16,y16-.65h);
  2434.     z11 = (x16,.53[y10,y16]);
  2435.     z12 = (.25x16,.53[y10,y16]);
  2436.     z13 = (x16,.53[y10,y16]);
  2437.     z14 = (1.55x16,y13);
  2438.     z15 = (1.46x16,.1[y10,y16]);
  2439.     draw z16--z10;
  2440.     pickup sub_pen;
  2441.     draw z11..tension1.4..z12{down}..tension1.4..z13;
  2442.     draw z13{curl.5}..z14{down}..tension1.3..z15;
  2443. endchar;
  2444. beginchar(173,13/17twd#+.25twd#+rm#+2penwd#,ht#,.45ht#); "-n+k+t";
  2445.     italcorr rm#+.6twd#; path p;
  2446.     pickup frame_pen;
  2447.     z1=(0,h); z2=(w,h);
  2448.     x3 = good.x w-rm-2penwd; y3=h;
  2449.     z4 = (x3,.74h); z5 = (.25twd+1/2penwd,.6h);
  2450.     z6 = (x3+1/2penwd,.36h);
  2451.     z7 = (1/2(.25twd+x3),1/7h);
  2452.     z8 = (1/2penwd,.45h);
  2453.     z9 = (w-rm,.45h+.8penwd); sqdot(z9);
  2454.     draw z1--z2; draw z3--z4;
  2455.     p = z4{left}..z5{down}..z6{down}..z7{left}..z8;
  2456.     draw p;
  2457.     z16 = point 2.75 of p;
  2458.     z10 = (x16,y16-.65h);
  2459.     z11 = (x16,.75[y10,y16]);
  2460.     z12 = (.2x16,y11);
  2461.     z14 = (1.55x16,y17);
  2462.     z15 = (1.46x16,.1[y10,y16]);
  2463.     z17 = (x16,.53[y10,y16]);
  2464.     z18 = (.4x16,.4[y10,y16]);
  2465.     z19 = (.55x16,y10);
  2466.     draw z16--z10;
  2467.     pickup sub_pen;
  2468.     draw z17{left}..tension1.2..z18..{curl0}z19;
  2469.     draw z12--z11;
  2470.     draw z11..z14{down}..tension1.3..z15;
  2471. endchar;
  2472. beginchar(174,1.9twd#+brm#,ht#,.45ht#); "-n+k+t+y";
  2473.     italcorr brm#; path p;
  2474.     lm := 13/17twd+.25twd;
  2475.     frame;
  2476.     z23 = (lm,h);
  2477.     z24 = (x23,.74h); z5 = (.25twd+1/2penwd,.6h);
  2478.     z6 = (x23+1/2penwd,.36h);
  2479.     z7 = (1/2(.25twd+x23),1/7h);
  2480.     z8 = (1/2penwd,.45h);
  2481.     z9 = (lm+2penwd,.45h+.8penwd); sqdot(z9);
  2482.     draw z23--z24;
  2483.     p = z24{left}..z5{down}..z6{down}..z7{left}..z8;
  2484.     draw p;
  2485.     z16 = point 2.75 of p;
  2486.     z10 = (x16,y16-.65h);
  2487.     z11 = (x16,.75[y10,y16]);
  2488.     z12 = (.2x16,y11);
  2489.     z13 = (1.15lm,.15[y10,y3]);
  2490.     z14 = (x3,.2[y10,y3]);
  2491.     z15 = (x3,y10);
  2492.     z20 = (1.35lm,.77[y10,y11]);
  2493.     z17 = (x16,.53[y10,y16]);
  2494.     z18 = (.4x16,.25[y10,y16]);
  2495.     z19 = (.55x16,y10);
  2496.     draw z16--z10;
  2497.     draw z3--z15;
  2498.     pickup  sub_pen;
  2499.     draw z17{left}..tension1.2..z18..{curl0}z19;
  2500.     draw z12--z11..z20{down}..z13;
  2501.     draw z13{dir-70}..tension1.1..{curl.2}z14;
  2502. endchar;
  2503. beginchar(175,1.9twd#+brm#,ht#,.4ht#); "-n+k+y";
  2504.     italcorr brm#; path p;
  2505.     lm := 13/17twd+.25twd;
  2506.     frame;
  2507.     z23 = (lm,h);
  2508.     z24 = (x23,.74h); z5 = (.25twd+1/2penwd,.6h);
  2509.     z6 = (x23+1/2penwd,.36h);
  2510.     z7 = (1/2(.25twd+x23),1/7h);
  2511.     z8 = (1/2penwd,.45h);
  2512.     z9 = (lm+2penwd,.45h+.8penwd); sqdot(z9);
  2513.     draw z23--z24;
  2514.     p = z24{left}..z5{down}..z6{down}..z7{left}..z8;
  2515.     draw p;
  2516.     z16 = point 2.75 of p;
  2517.     z10 = (x16,y16-.65h);
  2518.     z11 = (x16,.53[y10,y16]);
  2519.     z12 = (.2x16,y11);
  2520.     z13 = (1.25lm,.15[y10,y3]);
  2521.     z14 = (x3,.2[y10,y3]);
  2522.     z15 = (x3,y10);
  2523.     z20 = (1.4lm,.9[y10,y11]);
  2524.     draw z16--z10;
  2525.     draw z3--z15;
  2526.     pickup sub_pen;
  2527.     draw z11{curl.5}..tension1.3..z12{down}..tension1.3..{curl.5}z11;
  2528.     draw z11..tension1.2..z20{down}..tension1.1..{left}z13;
  2529.     draw z13{dir-70}..{curl.2}z14;
  2530. endchar;
  2531. beginchar(176,13/17twd#+.25twd#+rm#+2penwd#,ht#,.45ht#); "-n+ks";
  2532.     italcorr rm#+.4twd#; path p;
  2533.     pickup frame_pen;
  2534.     z1=(0,h); z2=(w,h);
  2535.     x3 = good.x w-rm-2penwd; y3=h;
  2536.     z4 = (x3,.74h); z5 = (.25twd+1/2penwd,.6h);
  2537.     z6 = (x3+1/2penwd,.36h);
  2538.     z7 = (1/2(.25twd+x3),1/7h);
  2539.     z8 = (1/2penwd,.45h);
  2540.     z9 = (w-rm,.45h+.8penwd); sqdot(z9);
  2541.     draw z1--z2; draw z3--z4;
  2542.     p = z4{left}..z5{down}..z6{down}..z7{left}..z8;
  2543.     draw p;
  2544.     z16 = point 2.4 of p;
  2545.     z10 = (x16,y7-.65h);
  2546.     draw z16--z10;
  2547.     pickup sub_pen;
  2548.     z11 = (x16,.7[y10,y7]);
  2549.     z12 = (.35x16,y7);
  2550.     z13 = (1/2penwd,.32[y10,y7]);
  2551.     z14 = (.6x16,.15[y10,y7]);
  2552.     z15 = (.7x16,y10-1/2penwd);
  2553.     z17 = (.2x16,.65[y10,y7]);
  2554.     z18 = (.5x16,.65[y10,y7]);
  2555.     z19 = (x14-1/4penwd,y14+1/4penwd);
  2556.     draw z11{dir230}..tension1.1..z17..z12{right}..z18..z13{down}..z14;
  2557.         draw z14--z15;
  2558. endchar;
  2559. beginchar(177,13/17twd#+.75twd#+rm#+2penwd#,ht#,.45ht#); "-n+ks+v";
  2560.     italcorr rm#+.4twd#; path p;
  2561.     lm := .5twd;
  2562.     pickup frame_pen;
  2563.     z1=(0,h); z2=(w,h);
  2564.     x3 = good.x w-rm-2penwd; y3=h;
  2565.     z4 = (x3,.74h); z5 = (lm+.25twd+1/2penwd,.6h);
  2566.     z6 = (x3+1/2penwd,.36h);
  2567.     z7 = (1/2(lm+.25twd+x3),1/7h);
  2568.     z8 = (lm+1/2penwd,.45h);
  2569.     z9 = (w-rm,.45h+.8penwd); sqdot(z9);
  2570.     draw z1--z2; draw z3--z4;
  2571.     p = z4{left}..z5{down}..z6{down}..z7{left}..z8;
  2572.     draw p;
  2573.     z16 = point 2.4 of p;
  2574.     z10 = (x16,y7-.65h);
  2575.     draw z16--z10;
  2576.     z11 = (.85(x16-lm),.52[y10,y7]);
  2577.     z12 = (.35(x16-lm),y7);
  2578.     z13 = (1/2penwd,.32[y10,y7]);
  2579.     z14 = (.6(x16-lm),.15[y10,y7]);
  2580.     z15 = (.7(x16-lm),y10-1/2penwd);
  2581.     z17 = (.16(x16-lm),.65[y10,y7]);
  2582.     z18 = (.5(x16-lm),.65[y10,y7]);
  2583.     z20 = (x16,.52[y10,y7]);
  2584.     z21 = (.85(x16-lm),y20);
  2585.     pickup sub_pen;
  2586.     draw z20{curl.5}..tension1.3..z11{down}..tension1.3..{curl.5}z20;
  2587.     draw z11{dir230}..tension1.1..z17..z12{right}..z18..z13{down}..z14;
  2588.         draw z14--z15;
  2589. endchar;
  2590. beginchar(178,13/17twd#+.25twd#+rm#+2penwd#,ht#,.45ht#); "-n+kh";
  2591.     italcorr rm#+.4twd#; path p; path q;
  2592.     pickup frame_pen;
  2593.     z1=(0,h); z2=(w,h);
  2594.     x3 = good.x w-rm-2penwd; y3=h;
  2595.     z4 = (x3,.74h); z5 = (.25twd+1/2penwd,.6h);
  2596.     z6 = (x3+1/2penwd,.36h);
  2597.     z7 = (1/2(.25twd+x3),1/7h);
  2598.     z8 = (1/2penwd,.45h);
  2599.     z9 = (w-rm,.45h+.8penwd); sqdot(z9);
  2600.     draw z1--z2; draw z3--z4;
  2601.     p = z4{left}..z5{down}..z6{down}..z7{left}..z8;
  2602.     draw p;
  2603.     z16 = point 2.4 of p;
  2604.     z10 = (x16,y7-.65h);
  2605.     draw z16--z10;
  2606.     z11 = (1/2penwd,.73[y10,y7]);
  2607.     z12 = point 3.45 of p;
  2608.     z13 = (.55x16,y10);
  2609.     pickup sub_pen;
  2610.     q = z11{down}..tension1.1..{curl0}z13;
  2611.     draw q;
  2612.     z14 = point .1 of q;
  2613.     draw z12{curl0}..tension1.1..{left}z14;
  2614.     z15 = (x16,.55[y10,y7]);
  2615.     z17 = (.5x16,.5[y10,y7]);
  2616.     z18 = (x16,.45[y10,y7]);
  2617.     draw z15..tension1.3..z17{down}..tension1.3..z18;
  2618. endchar;
  2619. beginchar(179,13/17twd#+.25twd#+rm#+penwd#,ht#,.35ht#); ".d+g";
  2620.     italcorr rm#+.2twd#; path p; path q;
  2621.     pickup frame_pen;
  2622.     z1=(0,h); z2=(w,h);
  2623.     x3 = good.x w-rm-penwd; y3=h;
  2624.     z4 = (x3,.74h); z5 = (.25twd+1/2penwd,.6h);
  2625.     z6 = (x3+1/2penwd,.36h);
  2626.     z7 = (1/2(.25twd+x3),1/7h);
  2627.     z8 = (1/2penwd,.45h);
  2628.     draw z1--z2; draw z3--z4;
  2629.     p = z4{left}..z5{down}..z6{down}..z7{left}..z8;
  2630.     draw p;
  2631.     z16 = point 2.4 of p;
  2632.     z10 = (x16,y7-.65h);
  2633.     draw z16--z10;
  2634.     z11 = point 3.3 of p;
  2635.     z12 = (x11,.3[y10,y11]);
  2636.     z13 = (1.2x11,2/3[y11,y12]);
  2637.     z14 = (.35x16,y12+.08h);
  2638.     q = z11..z13{down}..z12{left}..z14{up};
  2639.     z15 = point 2.3 of q;
  2640.     draw q..{curl.2}z15;
  2641.     v[charcode]=currentpicture;
  2642. endchar;
  2643. beginchar(180,13/17twd#+.25twd#+rm#+penwd#,ht#,.45ht#); ".d+gh";
  2644.     italcorr rm#+.2twd#; path p; path q;
  2645.     pickup frame_pen;
  2646.     z1=(0,h); z2=(w,h);
  2647.     x3 = good.x w-rm-penwd; y3=h;
  2648.     z4 = (x3,.74h); z5 = (.25twd+1/2penwd,.6h);
  2649.     z6 = (x3+1/2penwd,.36h);
  2650.     z7 = (1/2(.25twd+x3),1/7h);
  2651.     z8 = (1/2penwd,.45h);
  2652.     draw z1--z2; draw z3--z4;
  2653.     p = z4{left}..z5{down}..z6{down}..z7{left}..z8;
  2654.     draw p;
  2655.     z16 = point 2.4 of p;
  2656.     z10 = (x16,y7-.65h);
  2657.     draw z16--z10;
  2658.     z11 = .4[z10,z16];
  2659.     z12 = (.25x16,y11);
  2660.     z13 = (.55x16,.55[y10,y16]);
  2661.     z14 = point 3.36 of p;
  2662.     q = z11{curl0}..z12{up}..{right}z13;
  2663.     draw q;
  2664.     z15 = point 1.6 of q;
  2665.     z17 = (.35x16,.85[y10,y16]);
  2666.     draw z15{curl0}..z14{right};
  2667.     v[charcode]=currentpicture;
  2668. endchar;
  2669. beginchar(181,13/17twd#+.25twd#+rm#+2penwd#,ht#,.4ht#); "-n+n";
  2670.     italcorr rm#+.4twd#; path p; path q;
  2671.     pickup frame_pen;
  2672.     z1=(0,h); z2=(w,h);
  2673.     x3 = good.x w-rm-2penwd; y3=h;
  2674.     z4 = (x3,.74h); z5 = (.25twd+1/2penwd,.6h);
  2675.     z6 = (x3+1/2penwd,.36h);
  2676.     z7 = (1/2(.25twd+x3),1/7h);
  2677.     z8 = (1/2penwd,.45h);
  2678.     z9 = (w-rm,.45h+.8penwd); sqdot(z9);
  2679.     draw z1--z2; draw z3--z4;
  2680.     p = z4{left}..z5{down}..z6{down}..z7{left}..z8;
  2681.     draw p;
  2682.     z16 = point 2.4 of p;
  2683.     z10 = (x16,y7-.65h);
  2684.     draw z16--z10;
  2685.       y11 := good.y .5[y10,y16]; x11 := x16;
  2686.         y12 := y11 - .75penwd; x12 := .4x16;
  2687.         filldraw fullcircle scaled 1.5penwd shifted(x12,y12);
  2688.         z13 = (x12,y11);
  2689.         draw z11--z13;
  2690. endchar;
  2691. beginchar(182,13/17twd#+.25twd#+rm#+penwd#,ht#,.45ht#); ".d+gh+r";
  2692.     italcorr rm#+.2twd#; path p; path q;
  2693.     pickup frame_pen;
  2694.     z1=(0,h); z2=(w,h);
  2695.     x3 = good.x w-rm-penwd; y3=h;
  2696.     z4 = (x3,.74h); z5 = (.25twd+1/2penwd,.6h);
  2697.     z6 = (x3+1/2penwd,.36h);
  2698.     z7 = (1/2(.25twd+x3),1/7h);
  2699.     z8 = (1/2penwd,.45h);
  2700.     draw z1--z2; draw z3--z4;
  2701.     p = z4{left}..z5{down}..z6{down}..z7{left}..z8;
  2702.     draw p;
  2703.     z16 = point 2.4 of p;
  2704.     z10 = (x16,y7-.65h);
  2705.     draw z16--z10;
  2706.     z11 = .5[z10,z16];
  2707.     z12 = (.25x16,.4[y10,y16]);
  2708.     z13 = (.55x16,.55[y10,y16]);
  2709.     z14 = point 3.36 of p;
  2710.     q = z11{curl0}..z12{up}..{right}z13;
  2711.     draw q;
  2712.     z15 = point 1.6 of q;
  2713.     z17 = (.35x16,.85[y10,y16]);
  2714.     draw z15{curl0}..z14{right};
  2715.     z18 = .45[z10,z16];
  2716.     z19 = (x12,y10-1/2penwd);
  2717.     draw z18--z19;
  2718.     v[charcode]=currentpicture;
  2719. endchar;
  2720. beginchar(183,1.8twd#+brm#,ht#,0); ".d+y";
  2721.     italcorr brm#; path p;
  2722.     lm := 13/17twd+.25twd;
  2723.     frame;
  2724.     z23 = (lm,h);
  2725.     z24 = (x23,.74h); z5 = (.25twd+1/2penwd,.6h);
  2726.     z6 = (x23+1/2penwd,.36h);
  2727.     z7 = (1/2(.25twd+x23),1/7h);
  2728.     z8 = (1/2penwd,.45h);
  2729.     draw z23--z24;
  2730.     p = z24{left}..z5{down}..z6{down}..z7{left}..z8;
  2731.     draw p;
  2732.     z10 = point 2.2 of p;
  2733.     z9 = (w-brm,.35h);
  2734.     draw z10{dir-30}..{curl.3}z9;
  2735. endchar;
  2736. beginchar(184,1.9twd#+brm#,ht#,.35ht#); ".d+g+y";
  2737.     italcorr brm#; path p; path q;
  2738.     lm := 13/17twd+.25twd;
  2739.     frame;
  2740.     z23 = (lm,h);
  2741.     z24 = (x23,.74h); z5 = (.25twd+1/2penwd,.6h);
  2742.     z6 = (x23+1/2penwd,.36h);
  2743.     z7 = (1/2(.25twd+x23),1/7h);
  2744.     z8 = (1/2penwd,.45h);
  2745.     draw z23--z24;
  2746.     p = z24{left}..z5{down}..z6{down}..z7{left}..z8;
  2747.     draw p;
  2748.     z16 = point 2.3 of p;
  2749.     z10 = (x16,y16-.65h);
  2750.     z11 = point 3.3 of p;
  2751.     z12 = (x11,.3[y10,y11]);
  2752.     z17 = (1.2x11,2/3[y11,y12]);
  2753.     z18 = (.35x16,y12+.08h);
  2754.     q = z11..z17{down}..z12{left}..z18{up};
  2755.     z19 = point 2.3 of q;
  2756.     draw q..{curl.2}z19;
  2757.     z13 = (1.1lm,.2[y10,y3]);
  2758.     z14 = (x3,.25[y10,y3]);
  2759.     z15 = (x3,y10);
  2760.     z20 = (1.35lm,.68[y10,y16]);
  2761.     draw z16..z20{down}..tension1.1..{curl.5}z13;
  2762.     draw z13{dir-70}..{curl.2}z14;
  2763.     draw z3--z15;
  2764. endchar;
  2765. beginchar(185,1.9twd#+brm#,ht#,.35ht#); "-n+gh+y";
  2766.     italcorr brm#; path p; path q;
  2767.     lm := 13/17twd+.25twd;
  2768.     frame;
  2769.     z23 = (lm,h);
  2770.     z24 = (x23,.74h); z5 = (.25twd+1/2penwd,.6h);
  2771.     z6 = (x23+1/2penwd,.36h);
  2772.     z7 = (1/2(.25twd+x23),1/7h);
  2773.     z8 = (1/2penwd,.45h);
  2774.     z9 = (lm+2penwd,.45h+.8penwd); sqdot(z9);
  2775.     draw z23--z24;
  2776.     p = z24{left}..z5{down}..z6{down}..z7{left}..z8;
  2777.     draw p;
  2778.     z16 = point 2.4 of p;
  2779.     z10 = (x16,y16-.65h);
  2780.     z13 = (1.15lm,.2[y10,y3]);
  2781.     z14 = (x3,.25[y10,y3]);
  2782.     z15 = (x3,y10);
  2783.     draw z16{dir250}..z13{dir-70}..tension1.1..{curl.2}z14;
  2784.     z11 = (.25x16,y13);
  2785.     z12 = (.65x16,.55[y10,y16]);
  2786.     z17 = point 3.36 of p;
  2787.     q = z13{curl0}..z11{up}..{right}z12;
  2788.     draw q;
  2789.     z18 = point 1.6 of q;
  2790.     draw z18{curl0}..z17{right};
  2791.     draw z3--z15;
  2792. endchar;
  2793. beginchar(186,1.9twd#+brm#,ht#,.35ht#); "-n+kh+y";
  2794.     italcorr brm#; path p; path q; path r;
  2795.     lm := 13/17twd+.25twd;
  2796.     frame;
  2797.     z23 = (lm,h);
  2798.     z24 = (x23,.74h); z5 = (.25twd+1/2penwd,.6h);
  2799.     z6 = (x23+1/2penwd,.36h);
  2800.     z7 = (1/2(.25twd+x23),1/7h);
  2801.     z8 = (1/2penwd,.45h);
  2802.     z9 = (lm+2penwd,.45h+.8penwd); sqdot(z9);
  2803.     draw z23--z24;
  2804.     p = z24{left}..z5{down}..z6{down}..z7{left}..z8;
  2805.     draw p;
  2806.     z16 = point 2.4 of p;
  2807.     z10 = (x16,y16-.65h);
  2808.     z15 = (x3,y10);
  2809.     z11 = (1/2penwd,.73[y10,y7]);
  2810.     z12 = point 3.45 of p;
  2811.     z17 = (.55x16,y10);
  2812.     q = z11{down}..tension1.1..{curl0}z17;
  2813.     draw q;
  2814.     z18 = point .1 of q;
  2815.     draw z12{curl0}..tension1.1..{left}z18;
  2816.     z13 = (1.15lm,.2[y10,y3]);
  2817.     z14 = (x3,.25[y10,y3]);
  2818.     r =  z16{dir250}..z13{dir-70}..tension1.1..{curl.2}z14;
  2819.     draw r;
  2820.     z19 = point 0.8 of r;
  2821.     z20 = point 1.2 of r;
  2822.     z21 = (.65x16,y20);
  2823.     draw z19..tension1.4..z21{down}..tension1.3..z20;
  2824.     draw z3--z15;
  2825. endchar;
  2826. beginchar(187,1.9twd#+brm#,ht#,.35ht#); ".d+m";
  2827.     italcorr brm#; path p;
  2828.     lm := 13/17twd+.25twd;
  2829.     frame;
  2830.     z23 = (lm,h);
  2831.     z24 = (x23,.74h); z5 = (.25twd+1/2penwd,.6h);
  2832.     z6 = (x23+1/2penwd,.36h);
  2833.     z7 = (1/2(.25twd+x23),1/7h);
  2834.     z8 = (1/2penwd,.45h);
  2835.     draw z23--z24;
  2836.     p = z24{left}..z5{down}..z6{down}..z7{left}..z8;
  2837.     draw p;
  2838.     z16 = point 2.4 of p;
  2839.     z10 = (x16,y16-.65h);
  2840.     z14 = (x3,.2[y10,y3]);
  2841.     z15 = (x3,y10);
  2842.     z11 = (x16,y14-penwd);
  2843.     z12 = (x11-1/2penwd,y11+1/2penwd);
  2844.     draw z16--z11;
  2845.     draw (reverse halfcircle rotated rot scaled usthick shifted z12)--z14;
  2846.     draw z3--z15;
  2847. endchar;
  2848. beginchar(188,13/17twd#+.25twd#+rm#+2penwd#,ht#,.6ht#); "-n+-n";
  2849.     italcorr rm#+.6twd#; path p;
  2850.     pickup frame_pen;
  2851.     z1=(0,h); z2=(w,h);
  2852.     x3 = good.x w-rm-2penwd; y3 = h;
  2853.     z4 = (x3,.74h); z5 = (.25twd+1/2penwd,.6h);
  2854.     draw z3--z4;
  2855.     z6 = (x3+1/2penwd,.36h);
  2856.     z7 = (1/2(.25twd+x3),1/7h);
  2857.     z8 = (1/2penwd,.45h);
  2858.     z9 = (w-rm,.45h+.8penwd); sqdot(z9);
  2859.     p = z4{left}..z5{down}..z6{down}..z7{left}..z8;
  2860.     draw p;
  2861.     z10 = (x3,y6);
  2862.     z11 = (x3,0);
  2863.     z12 = p intersectionpoint (z10--z11);
  2864.     addto currentpicture also currentpicture shifted (0,y12-h);
  2865.     draw z1--z2; 
  2866. endchar;
  2867. beginchar(189,13/17twd#+.25twd#+rm#+2penwd#,ht#,.4ht#); "-n+g";
  2868.     italcorr rm#+.4twd#;
  2869.     pickup frame_pen;
  2870.     z1 = (0,h); z2 = (w,h);
  2871.     draw z1--z2;
  2872.     z9 = (w-rm,.45h+.8penwd); sqdot(z9);
  2873.     addpic(179);
  2874. endchar;
  2875. beginchar(190,1.9twd#+brm#,ht#,.3ht#); "-n+g+y";
  2876.     italcorr brm#;
  2877.     z9 = (13/17twd+.25twd+2penwd,.45h+.8penwd); sqdot(z9);
  2878.     path p; path q;
  2879.     lm := 13/17twd+.25twd;
  2880.     frame;
  2881.     z23 = (lm,h);
  2882.     z24 = (x23,.74h); z5 = (.25twd+1/2penwd,.6h);
  2883.     z6 = (x23+1/2penwd,.36h);
  2884.     z7 = (1/2(.25twd+x23),1/7h);
  2885.     z8 = (1/2penwd,.45h);
  2886.     draw z23--z24;
  2887.     p = z24{left}..z5{down}..z6{down}..z7{left}..z8;
  2888.     draw p;
  2889.     z16 = point 2.3 of p;
  2890.     z10 = (x16,y16-.65h);
  2891.     z11 = point 3.3 of p;
  2892.     z12 = (x11,.3[y10,y11]);
  2893.     z17 = (1.2x11,2/3[y11,y12]);
  2894.     z18 = (.35x16,y12+.08h);
  2895.     q = z11..z17{down}..z12{left}..z18{up};
  2896.     z19 = point 2.3 of q;
  2897.     draw q..{curl.2}z19;
  2898.     z13 = (1.1lm,.2[y10,y3]);
  2899.     z14 = (x3,.25[y10,y3]);
  2900.     z15 = (x3,y10);
  2901.     z20 = (1.35lm,.68[y10,y16]);
  2902.     draw z16..z20{down}..tension1.1..{curl.5}z13;
  2903.     draw z13{dir-70}..{curl.2}z14;
  2904.     draw z3--z15;
  2905. endchar;
  2906. beginchar(191,13/17twd#+.25twd#+rm#+2penwd#,ht#,.4ht#); "-n+gh";
  2907.     italcorr rm#+.4twd#;
  2908.     pickup frame_pen;
  2909.     z1=(0,h); z2=(w,h);
  2910.     draw z1--z2;
  2911.     z9 = (w-rm,.45h+.8penwd); sqdot(z9);
  2912.     addpic(180);
  2913. endchar;
  2914. beginchar(192,13/17twd#+.25twd#+rm#+2penwd#,ht#,.4ht#); "-n+gh+r";
  2915.     italcorr rm#+.4twd#;
  2916.     pickup frame_pen;
  2917.     z1=(0,h); z2=(w,h);
  2918.     draw z1--z2;
  2919.     z9 = (w-rm,.45h+.8penwd); sqdot(z9);
  2920.     addpic(182);
  2921. endchar;
  2922. beginchar(193,1.9twd#+brm#,ht#,.35ht#); "-n+m";
  2923.     italcorr brm#;
  2924.     z9 = (13/17twd+.25twd+2penwd,.45h+.8penwd); sqdot(z9);
  2925.         path p;
  2926.     lm := 13/17twd+.25twd;
  2927.     frame;
  2928.     z23 = (lm,h);
  2929.     z24 = (x23,.74h); z5 = (.25twd+1/2penwd,.6h);
  2930.     z6 = (x23+1/2penwd,.36h);
  2931.     z7 = (1/2(.25twd+x23),1/7h);
  2932.     z8 = (1/2penwd,.45h);
  2933.     draw z23--z24;
  2934.     p = z24{left}..z5{down}..z6{down}..z7{left}..z8;
  2935.     draw p;
  2936.     z16 = point 2.4 of p;
  2937.     z10 = (x16,y16-.65h);
  2938.     z14 = (x3,.2[y10,y3]);
  2939.     z15 = (x3,y10);
  2940.     z11 = (x16,y14-penwd);
  2941.     z12 = (x11-1/2penwd,y11+1/2penwd);
  2942.     draw z16--z11;
  2943.     draw (reverse halfcircle rotated rot scaled usthick shifted z12)--z14;
  2944.     draw z3--z15;
  2945. endchar;
  2946. beginchar(194,1.9twd#+brm#,ht#,.35ht#); "-n+y";
  2947.     italcorr brm#; path p;
  2948.     lm := 13/17twd+.25twd;
  2949.     frame;
  2950.     z23 = (lm,h);
  2951.     z24 = (x23,.74h); z5 = (.25twd+1/2penwd,.6h);
  2952.     z6 = (x23+1/2penwd,.36h);
  2953.     z7 = (1/2(.25twd+x23),1/7h);
  2954.     z8 = (1/2penwd,.45h);
  2955.     draw z23--z24;
  2956.     p = z24{left}..z5{down}..z6{down}..z7{left}..z8;
  2957.     draw p;
  2958.     z16 = point 2.4 of p;
  2959.     z10 = (x16,y16-.65h);
  2960.     z13 = (1.15lm,.2[y10,y3]);
  2961.     z14 = (x3,.25[y10,y3]);
  2962.     z15 = (x3,y10);
  2963.     z20 = (1.35lm,.8[y10,y16]);
  2964.     draw z16{curl0}..z20{down}..z13;
  2965.     draw z13{dir-70}..tension1.1..{curl.2}z14;
  2966.     draw z3--z15;
  2967.     z9 = (13/17twd+.25twd+2penwd,.45h+.8penwd); sqdot(z9);
  2968. endchar;
  2969. beginchar(195,1.65twd#+rm#,ht#,0); "k+k";
  2970.     italcorr rm#+.65twd#;
  2971.     pickup frame_pen;
  2972.     z1=(0,h); z2=(w,h); x3=good.x twd; y3=h;
  2973.     z4 = (x3,0); draw z1--z2; draw z3--z4;
  2974.     z5 = (x3,.65h);
  2975.     z6 = (1/2penwd,.65h);
  2976.     z8 = (w-rm,.6h);
  2977.     z9 = (.96x8,.48h);
  2978.     draw z5{curl.5}..tension1.9..z6{down}..tension1.9..{curl.5}z5;
  2979.     draw z5{curl.5}..tension1.2..z8{down}..tension1.3..z9;
  2980.     z10 = (x3,.17h);
  2981.     z11 = (1/2penwd,.17h);
  2982.     z13 = (w-rm,.12h);
  2983.     z14 = (.96x13,0);
  2984.     draw z10{curl.5}..tension1.9..z11{down}..tension1.9..{curl.5}z10;
  2985.     draw z10{curl.5}..tension1.2..z13{down}..tension1.3..z14;
  2986. endchar;
  2987. beginchar(196,1.55twd#+rm#,ht#,0); "k+t";
  2988.     italcorr rm#+.65twd#;
  2989.     pickup frame_pen;
  2990.     lm := 23/16twd;
  2991.         xm := w - rm - lm;
  2992.     z1=(0,h); z2=(w,h); x3 = good.x (xm + .55lm); y3=h;
  2993.     z4 = (x3,0); draw z1--z2; draw z3--z4;
  2994.     z7 = (x3,.5h);
  2995.     z8 = (w-rm,.5h);
  2996.     z9 = (xm+.94lm,.1h);
  2997.     draw z7{curl.5}..z8{down}..tension1.3..z9;
  2998.     z10 = (x3,.75h);
  2999.     z11 = (1/2penwd,y10);
  3000.     draw z10--z11;
  3001.     z12 = (x3,.5h);
  3002.     z13 = (.65xm+.35x3,y12);
  3003.     z14 = (.5xm+.5x3,0);
  3004.     draw z12---z13..{curl0}z14;
  3005. endchar;
  3006. beginchar(197,2.0twd#+brm#,ht#,0); "k+t+y";
  3007.     italcorr brm#;
  3008.     frame;
  3009.     lm := 23/16twd;
  3010.         xm := .1twd;
  3011.     x5 = good.x (xm + .55lm); y5=h;
  3012.     z6 = (x5,0); draw z5--z6;
  3013.     z7 = (x5,.75h);
  3014.     z10 = (x5,.75h);
  3015.     z11 = (1/2penwd,y10);
  3016.     draw z10--z11;
  3017.     z12 = (x5,.5h);
  3018.     z13 = (.65xm + .35x5,y12);
  3019.     z14 = (.5xm + .5x5,0);
  3020.     draw z12---z13..{curl0}z14;
  3021.     z8 = (.77(w-brm),.6h);
  3022.     z9 = (.65(w-brm),.4h);
  3023.     z15 = (x3,.45h);
  3024.     draw z9{dir-70}..{curl.5}z15;
  3025.     draw z7{right}..z8..tension1.3..z9;
  3026. endchar;
  3027. beginchar(198,2.15twd#+rm#,ht#,0); "k+t+v";
  3028.     italcorr rm#+.65twd#; path p;
  3029.     pickup frame_pen;
  3030.     lm := 23/16twd;
  3031.     z1=(0,h); z2=(w,h); x3 = good.x (w-rm-.45lm); y3=h;
  3032.     z4 = (x3,0); draw z1--z2; draw z3--z4;
  3033.     z7 = (x3,.5h);
  3034.     z8 = (w-rm,.5h);
  3035.     z9 = (.94(w-rm),.1h);
  3036.     draw z7{curl.5}..z8{down}..tension1.3..z9;
  3037.     z10 = (x3,.75h);
  3038.     z11 = (1/2penwd,y10);
  3039.     draw z10--z11;
  3040.     z15 = (x3,.37h);
  3041.     z16 = (.55lm,.37h);
  3042.     p = z15..tension1.5..z16{down}..tension1.5..z15;
  3043.     draw p;
  3044.     z12 = point 0.85 of p;
  3045.     z13 = (.4x12,y12);
  3046.     z14 = (.57x12,0);
  3047.     draw z12---z13..{curl0}z14;
  3048. endchar;
  3049. beginchar(199,23/16twd#+rm#,ht#,0); "k+n";
  3050.     italcorr rm#+.65twd#;
  3051.     pickup frame_pen;
  3052.     lm := w-rm;
  3053.     z1 = (0,h); z2 = (w,h); x3 = good.x .55lm; y3 = h;
  3054.     z4 = (x3,0); draw z1--z2; draw z3--z4;
  3055.     z5 = (x3,.6h);
  3056.     z6 = (1/2penwd,.55h);
  3057.     z7 = (x3,.5h);
  3058.     z8 = (lm,.5h);
  3059.     z9 = (.94lm,.1h);
  3060.     draw z5..tension1.3..z6{down}..tension1.3..z7;
  3061.     draw z7{curl.5}..z8{down}..tension1.3..z9;
  3062.     low_n(1.1penwd,.15h);
  3063. endchar;
  3064. beginchar(200,1.9twd#+brm#,ht#,0); "k+y";
  3065.     italcorr brm#;
  3066.     frame;
  3067.     lm := 23/16twd;
  3068.     x5 = good.x .55lm; y5=h;
  3069.     z6 = (x5,0); draw z5--z6;
  3070.     z7 = (x5,.76h);
  3071.     z8 = (.7(w-brm),.64h);
  3072.     z9 = (.6(w-brm),.45h);
  3073.     z15 = (x3,.45h);
  3074.     draw z9{dir-70}..{curl.5}z15;
  3075.     draw z7{right}..z8..tension1.3..z9;
  3076.     z10 = (x5,.6h);
  3077.     z11 = (1/2penwd,.55h);
  3078.     z12 = (x5,.5h);
  3079.     draw z10..tension1.3..z11{down}..tension1.3..z12;
  3080. endchar;
  3081. beginchar(201,2.0twd#+brm#,ht#,0); "k+m";
  3082.     italcorr brm#;
  3083.     frame;
  3084.     lm := 23/16twd;
  3085.     x5 = good.x .55lm; y5=h;
  3086.     z6 = (x5,0); draw z5--z6;
  3087.     z7 = (x5,.76h);
  3088.     y8 = good.y .27h+penwd; x8 = x3;
  3089.     z9 = (1.1twd+3/2penwd,y8-penwd);
  3090.     z13 = (x9-1/2penwd,y9+1/2penwd);
  3091.     z14 = (x9,y7-penwd);
  3092.     draw z7{right}..z14---z9;
  3093.     draw (reverse halfcircle rotated rot scaled usthick shifted z13)--z8;
  3094.     z15 = (x3,.45h);
  3095.     z10 = (x5,.6h);
  3096.     z11 = (1/2penwd,.55h);
  3097.     z12 = (x5,.5h);
  3098.     draw z10..tension1.3..z11{down}..tension1.3..z12;
  3099. endchar;
  3100. beginchar(202,1.8twd#+rm#,ht#,0); "k+l";
  3101.     italcorr rm#+.65twd#;
  3102.     pickup frame_pen;
  3103.     lm := 23/16twd;
  3104.     z1=(0,h); z2=(w,h); x3=good.x w-rm-.45lm; y3=h;
  3105.     z4 = (x3,0); draw z1--z2; draw z3--z4;
  3106.     z5 = (x3,.6h);
  3107.     z6 = (w-rm-lm+1/2penwd,.55h);
  3108.     z7 = (x3,.5h);
  3109.     z8 = (w-rm,.5h);
  3110.     z9 = (w-rm-.06lm,.1h);
  3111.     draw z5..tension1.3..z6{down}..tension1.3..z7;
  3112.     draw z7{curl.5}..z8{down}..tension1.3..z9;
  3113.     z14=(x3,.38h);
  3114.     z10=(.55x3,.18h);
  3115.     z11=(1/4x3,.4h);
  3116.     z12=(1/2penwd,.3h);
  3117.     z13=(3/8x3,0);
  3118.     draw z14{left}..{curl4}z10;
  3119.     draw z10{curl6}..{left}z11..{down}z12..{curl0}z13;
  3120. endchar;
  3121. beginchar(203,1.65twd#+rm#,ht#,0); "k+v";
  3122.     italcorr rm#+.65twd#;
  3123.     pickup frame_pen;
  3124.     z1=(0,h); z2=(w,h); x3=good.x twd; y3=h;
  3125.     z4 = (x3,0); draw z1--z2; draw z3--z4;
  3126.     z5 = (x3,.65h);
  3127.     z6 = (1/2penwd,.65h);
  3128.     draw z5{curl.5}..tension1.9..z6{down}..tension1.9..{curl.5}z5;
  3129.     z10 = (x3,.17h);
  3130.     z11 = (1/2penwd,.17h);
  3131.     draw z10{curl.5}..tension1.9..z11{down}..tension1.9..{curl.5}z10;
  3132.     z7 = (x3,.65h);
  3133.     z8 = (w-rm,.5h);
  3134.     z9 = (.94(w-rm),.1h);
  3135.     draw z7{curl.5}..z8{down}..tension1.3..z9;
  3136. endchar;
  3137. beginchar(204,2.1twd#+brm#,ht#,0); "k+v+y";
  3138.     italcorr brm#;
  3139.     frame;
  3140.     x5 = good.x twd; y5=h;
  3141.     z6 = (x5,0); draw z5--z6;
  3142.     z7 = (x5,.76h);
  3143.     z8 = (.77(w-brm),.6h);
  3144.     z9 = (.64(w-brm),.42h);
  3145.     z15 = (x3,.42h);
  3146.     z12 = (x5,.65h);
  3147.     z13 = (1/2penwd,.65h);
  3148.     draw z12{curl.5}..tension1.9..z13{down}..tension1.9..{curl.5}z12;
  3149.     z10 = (x5,.17h);
  3150.     z11 = (1/2penwd,.17h);
  3151.     draw z10{curl.5}..tension1.9..z11{down}..tension1.9..{curl.5}z10;
  3152.     draw z9{dir-70}..{curl.5}z15;
  3153.     draw z12..tension1.3..z8..tension1.3..z9;
  3154. endchar;
  3155. beginchar(205,1.1twd#+brm#,ht#,.1ht#); "gh+n";
  3156.     italcorr brm#;
  3157.     frame;
  3158.     path p;
  3159.     z5 = (x3,.5h);
  3160.     z6 = (.65x3,.65h);
  3161.     z10 = (.18x3,.5h);
  3162.     p = z5{curl0}..z10{up}...{right}z6;
  3163.     draw p;
  3164.     z7 = point 1.7 of p;
  3165.     z8 =(.26x3,h);
  3166.     vardef yup(expr y)= xpart direction 1 of (z7{curl0}..(1/2penwd,y)..
  3167.       {right}z8) < 0
  3168.     enddef;
  3169.     z9 = (1/2penwd,solve yup(y7,y8));
  3170.     draw z7{curl0}..z9..{right}z8;
  3171.     low_n(.3(w-brm),.1h);
  3172. endchar;
  3173. beginchar(206,1.2twd#+brm#,ht#,0); "c+c";
  3174.     italcorr brm#; path p;
  3175.     frame; y5 = good.y .7h; x5 = 1/2penwd;
  3176.     z6 = (w-brm-penwd,y5);
  3177.     z9 = (.44x3,y5);
  3178.     z7 = (.55x3,.35h);
  3179.     z8 = (w-brm,.45h);
  3180.     draw z5--z6; p = z9{curl.5}..z7{right}..z8;
  3181.     y10 = good.y .38h; x10 = 1/2penwd;
  3182.     z11 = (w-brm-penwd,y10);
  3183.     draw subpath (0,xpart(p intersectiontimes (z10--z11))) of p;
  3184.     z12 = (.44x3,y10);
  3185.     z13 = (.55x3,.03h);
  3186.     z14 = (w-brm,.13h);
  3187.     draw z10--z11; draw z12{curl.5}..z13{right}..z14;
  3188. endchar;
  3189. beginchar(207,1.2twd#+brm#,ht#,0); "c+'n";
  3190.     italcorr brm#;
  3191.     frame; y5 = good.y .74h; x5 = 1/2penwd;
  3192.     z6 = (w-brm-penwd,y5);
  3193.     z9 = (.6x3,y5);
  3194.     z7 = (2/5x6,.54h);
  3195.     z8 = (w-brm,.62h);
  3196.     draw z5--z6; draw z9..z7{down}..tension1.1..{curl0.1}z8;
  3197.     z10 = (.1(w-brm),.3h);
  3198.     z11 = (.4(w-brm),.15h);
  3199.     z12 = (.2(w-brm),0);
  3200.     z13 = (w-brm,y11);
  3201.     z14 = (1/2penwd,.05h);
  3202.     draw z10..z11{down}..z12{left}..z14;
  3203.     draw z11{dir-20}..z13;
  3204. endchar;
  3205. beginchar(208,2.6twd#+rm#,ht#,0); "ch+y";
  3206.     italcorr brm#;
  3207.     frame;
  3208.     lm := 1.8twd; path p;
  3209.     x13 = good.x .75lm; y13=h; z14 = (x13,.72h);
  3210.     z5 = (x3,.3h); z6 = (lm,0);
  3211.     z7 = (.38lm,0); z8 = (.5lm,.45h);
  3212.     z12 = (x13,.2h);
  3213.     draw z13--z14;
  3214.     p= z5{curl.2}..z6..z12..
  3215.       z14{right}..z7{left}..tension.9..{right}z8;
  3216.     draw p;
  3217.     z9 = point 4.75 of p;
  3218.     z10 = (.8x8,.75h);
  3219.     z11 = (1/2penwd,.7[y9,y10]);
  3220.     draw z9..tension1.4..z11{up}..tension1.3..{curl0}z10;
  3221. endchar;
  3222. beginchar(209,1.2twd#+brm#,ht#,.1ht#); "'n+c";
  3223.     italcorr brm#;
  3224.     frame; y5 = good.y .3h; x5 = 1/2penwd;
  3225.     z6 = (w-brm-penwd,y5);
  3226.     z9 = (.6x3,y5);
  3227.     z7 = (2/5x6,.1h);
  3228.     z8 = (w-brm,.18h);
  3229.     draw z5--z6; draw z9..z7{down}..tension1.1..{curl0.1}z8;
  3230.     z10 = (.1(w-brm),.8h);
  3231.     z11 = (.4(w-brm),.65h);
  3232.     z12 = (.2(w-brm),.5h);
  3233.     z13 = (w-brm,y11);
  3234.     z14 = (1/2penwd,.53h);
  3235.     draw z10..z11{down}..z12{left}..z14;
  3236.     draw z11{dir-20}..z13;
  3237. endchar;
  3238. beginchar(210,1.4twd#+brm#,ht#,0); "'n+j";
  3239.     italcorr brm#;
  3240.     lm := 1.2twd;
  3241.     frame;
  3242.     y5 = good.y .3h; x5 = 1/2penwd;
  3243.     z7 = (.45x3,y5);
  3244.     z8 = (w-brm,y5);
  3245.     z6 = (.52x3,0);
  3246.     draw z5{curl.5}..tension1.2..z6{right}..{curl0}z7--z8;
  3247.     z10 = (.1lm,.8h);
  3248.     z11 = (.4lm,.65h);
  3249.     z12 = (.2lm,.5h);
  3250.     z13 = (w-brm,y11);
  3251.     z14 = (1/2penwd,.53h);
  3252.     draw z10..z11{down}..z12{left}..z14;
  3253.     draw z11{dir-20}..z13;
  3254. endchar;
  3255. beginchar(211,1.15twd#+rm#,ht#,.4ht#); ".t+.t";
  3256.     italcorr rm#+.5twd#; path p;
  3257.     pickup frame_pen;
  3258.     z1=(0,h); z2=(w,h);
  3259.     draw z1--z2;
  3260.     lm := w-rm;
  3261.     x3 = good.x .7lm; y3=h;
  3262.     z4 = (x3,.72h);
  3263.     z6 = (.55lm,.3h);
  3264.     z7 = (lm,.4h);
  3265.     draw z3--z4;
  3266.     vardef dwn(expr y) = xpart direction 1 of (z4{curl0}..tension1.1..
  3267.     (1/2penwd,y)..z6{right}..{curl0}z7) < 0 enddef;
  3268.     z55 = (1/2penwd,solve dwn(y4,y6));
  3269.     p =  z4{curl0}..tension1.1..z55..z6{right}..{curl0}z7;
  3270.     draw p;
  3271.     z8 = p intersectionpoint ((x3,.65h)--(x3,0));
  3272.     hdif := y3-y8;
  3273.     z9 = (x4,y4-hdif);
  3274.     z10 = (x55,y55-hdif);
  3275.     z11 = (x6,y6-hdif);
  3276.     z12 = (x7,y7-hdif);
  3277.     draw z8--z9;
  3278.     draw z9{curl0}..tension1.1..z10..z11{right}..{curl0}z12;
  3279. endchar;
  3280. beginchar(212,1.8twd#+brm#,ht#,0); ".t+y";
  3281.     italcorr brm#;
  3282.     frame;
  3283.     lm := 1.0twd;
  3284.     x5 = good.x .7lm; y5=h;
  3285.     z8 = (x5,.66h);
  3286.     z7 = (x5+1/2penwd,.2h);
  3287.     draw z5--z8;
  3288.     vardef dwn(expr y) = xpart direction 1 of (z8{curl0}..tension1.1..
  3289.       (1/2penwd,y)..tension1.1..{curl0}z7) < 0 enddef;
  3290.     z55 = (1/2penwd,solve dwn(y8,y7));
  3291.     draw z8{curl0}..tension1.1..z55..tension1.1..{curl0}z7;
  3292.     z9 = (.58x3,.33h);
  3293.     z10 = (x3,.4h);
  3294.     z11 = .4[z8,z5];
  3295.     z12 = (.65x3,.88y11);
  3296.     draw z9{dir-60}..tension1.1..{curl.2}z10;
  3297.     draw z11{right}..z12..tension1.1..z9;
  3298. endchar;
  3299. beginchar(213,1.45twd#+brm#,ht#,.1ht#); ".th+y";
  3300.     italcorr brm#;
  3301.     frame; path p;
  3302.     lm := 1twd;
  3303.     x9 = good.x .75lm; y9 = h;
  3304.     z10 = (x9,.72h);
  3305.     z6 = (.55lm,.22h);
  3306.     z7 = (lm,y5);
  3307.     z8 = (x10+penwd,y10-penwd);
  3308.     draw z9--z10;
  3309.     vardef dwn(expr y) = xpart direction 1 of (z10{curl0}..(1/2penwd,y)
  3310.     ..{right}z6) < 0 enddef;
  3311.     z5 = (1/2penwd,solve dwn(y10,y6));
  3312.     p = z10{curl0}..z5..z6{right}..z7{up}..{curl0}z8;
  3313.     draw p;
  3314.     z11 = point 2.15 of p;
  3315.     z12 = (x3,y11);
  3316.     draw z11{dir-90}..tension.95..{curl.2}z12;
  3317. endchar;
  3318. beginchar(214,1.15twd#+rm#,ht#,.25ht#); ".t+k";
  3319.     italcorr rm#+.5twd#; path p;
  3320.     pickup frame_pen;
  3321.     z1=(0,h); z2=(w,h);
  3322.     draw z1--z2;
  3323.     lm := w-rm;
  3324.     x3 = good.x .7lm; y3=h;
  3325.     z4 = (x3,.72h);
  3326.     z6 = (.55lm,.3h);
  3327.     z7 = (lm,.4h);
  3328.     draw z3--z4;
  3329.     vardef dwn(expr y) = xpart direction 1 of (z4{curl0}..tension1.1..
  3330.     (1/2penwd,y)..z6{right}..{curl0}z7) < 0 enddef;
  3331.     z55 = (1/2penwd,solve dwn(y4,y6));
  3332.     p =  z4{curl0}..tension1.1..z55..z6{right}..{curl0}z7;
  3333.     draw p;
  3334.     z16 = point 2.1 of p;
  3335.     z10 = (x16,y16-.7h);
  3336.     z11 = (x16,.53[y10,y16]);
  3337.     z12 = (1/2penwd,.53[y10,y16]);
  3338.     z13 = (x16,.53[y10,y16]);
  3339.     z14 = (1.65x16,y13);
  3340.     z15 = (1.55x16,.1[y10,y16]);
  3341.     draw z16--z10;
  3342.     draw z11..tension1.4..z12{down}..tension1.4..z13;
  3343.     draw z13{curl.5}..z14{down}..tension1.3..z15;
  3344. endchar;
  3345. beginchar(215,1.3twd#+brm#, ht#, 0); "t+n" ;
  3346.     italcorr brm#;
  3347.     frame; y5 = good.y 2/3h; x5 = x3;
  3348.     z6 = (0.35twd,y5); z7 = (0.45twd,0);
  3349.     draw z5---z6..{curl0}z7;
  3350.     low_n(.7twd,.38h);
  3351. endchar;
  3352. beginchar(216,twd#+brm#,ht#,0); "p+t";
  3353.     italcorr brm#;
  3354.     frame;
  3355.     z5 = (1/2penwd,h);
  3356.     z6 = (w-brm,.5h);
  3357.     x7 = x5+.17(w-brm);
  3358.     y7 = y6+.14h;
  3359.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  3360.     z9 = (1/2penwd,.62y6); z10 = (0.45x3,0);
  3361.     draw z6{left}..tension1.2..z9{down}..{curl0}z10;
  3362. endchar;
  3363. beginchar(217,twd#+brm#,ht#,0); "p+n";
  3364.     italcorr brm#;
  3365.     frame;
  3366.     z5 = (penwd,h);
  3367.     z6 = (w-brm,.5h);
  3368.     x7 = x5+.17(w-brm);
  3369.     y7 = y6+.1h;
  3370.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  3371.     low_n(1.1penwd,.2h);
  3372. endchar;
  3373. beginchar(218,1.3twd#+brm#,ht#,0); "p+l";
  3374.     italcorr brm#;
  3375.     frame;
  3376.     z5 = (.3twd+penwd,h);
  3377.     z6 = (w-brm,.5h);
  3378.     x7 = x5+.17twd;
  3379.     y7 = y6+.1h;
  3380.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  3381.     z14=(x3,.38h);
  3382.     z10=(.55x3,.18h);
  3383.     z11=(1/4x3,.4h);
  3384.     z12=(1/2penwd,.3h);
  3385.     z13=(3/8x3,0);
  3386.     draw z14{left}..{curl4}z10;
  3387.     draw z10{curl6}..{left}z11..{down}z12..{curl0}z13;
  3388. endchar;
  3389. beginchar(219,11/12twd#+brm#,ht#,.3ht#); "b+v";
  3390.     italcorr brm#; path p;
  3391.     frame; z5 = (x3,.62h);
  3392.     z6 = (1/2penwd,.6h);
  3393.     z7 = (x3,.58h);
  3394.     p =  z5..tension1.5..z6{down}..tension1.5..z7;
  3395.     draw p;
  3396.     z8 = (x3,-.3h);
  3397.     draw z3--z8;
  3398.     z9 = (x3,.06h);
  3399.     z10 = (1/2penwd,.04h);
  3400.     z11 = (x3,.02h);
  3401.     draw z9..tension1.5..z10{down}..tension1.5..z11;
  3402.     y12 = h; z13 = (.58x3,.6h);
  3403.     z12 = z13 + whatever*dir125;
  3404.     y14 = 0;
  3405.     z14 = z13 + whatever*dir305;
  3406.     z15 = p intersectionpoint (z13--z12);
  3407.     z16 = p intersectionpoint (z13--z14);
  3408.     draw z15--z16;
  3409. endchar;
  3410. beginchar(220,1.5twd#+brm#,ht#,0); "s+n";
  3411.     italcorr brm#;
  3412.     frame; path p; path q;
  3413.     z5 = (1/2penwd,.65h);
  3414.     z6 = (.6twd,0);
  3415.     p = z5{down}..tension1.1..{curl0}z6;
  3416.     z7 = point .2 of p;
  3417.     z8 = (.424twd,h);
  3418.     q = z8{curl0}..tension1.1..{left}z7;
  3419.     z9 = point .65 of q;
  3420.     z10 = (w-brm,y9);
  3421.     draw p; draw q; draw z9{dir-30}..tension1.1..z10;
  3422.     low_n(.95twd,.25h);
  3423. endchar;
  3424. beginchar(221,1.6twd#+brm#,ht#,0); "m+l";
  3425.     italcorr brm#;
  3426.     frame; x5 = good.x 3/2penwd; y5=h;
  3427.     z6 = (x5,y7-penwd);
  3428.     y7 = good.y .42h+penwd; x7=x3;
  3429.     z8 = (x6-1/2penwd,y6+1/2penwd);
  3430.     draw z5--z6;
  3431.     draw (reverse halfcircle rotated rot scaled usthick shifted z8)--z7;
  3432.     lm := 1.2twd;
  3433.     bm := w-brm-lm;
  3434.     z14 = (w-brm,.28h);
  3435.     z10 = (.55lm+bm,.08h);
  3436.     z11 = (1/4lm+bm,.3h);
  3437.     z12 = (1/2penwd+bm,.2h);
  3438.     z13 = (3/8lm+bm,-.1h);
  3439.     draw z14{left}..{curl4}z10;
  3440.     draw z10{curl6}..{left}z11..{down}z12..{curl0}z13;
  3441. endchar;
  3442. beginchar(222,1.5twd#+brm#,ht#,0); "bh+n";
  3443.     italcorr brm#;
  3444.     tframe;
  3445.     z5 = (0,h);
  3446.     z6 = (3/2penwd+.1twd,.76h);
  3447.     z7 = (x6,.42h);
  3448.     z8 = (x3,y7+penwd);
  3449.     z9 = (x7-1/2penwd,y7+1/2penwd);
  3450.     draw z5{right}..tension.95..z6---z7;
  3451.     draw (reverse halfcircle rotated rot scaled usthick shifted z9)--z8;
  3452.     low_n(.85twd,.25h);
  3453. endchar;
  3454. beginchar(223,1.5twd#+brm#,ht#,0); "m+n";
  3455.     italcorr brm#;
  3456.     frame; x5 = good.x 3/2penwd; y5=h;
  3457.     z6 = (x5,y7-penwd);
  3458.     y7 = good.y .42h+penwd; x7=x3;
  3459.     z8 = (x6-1/2penwd,y6+1/2penwd);
  3460.     draw z5--z6;
  3461.     draw (reverse halfcircle rotated rot scaled usthick shifted z8)--z7;
  3462.     low_n(.85twd,.25h);    
  3463. endchar;
  3464. beginchar(224,1.2twd#+brm#,ht#,0); "n+n";
  3465.     italcorr brm#;
  3466.     frame; path p;
  3467.     z5 = (x3,.47h);
  3468.     z6 = (1.0penwd,.72h);
  3469.     z7 = (x6,y6-.5penwd);
  3470.     z8 = (.3(w-brm),.22h);
  3471.     x9 = x8 + (1/4penwd * sqrt 2);
  3472.     y9 = y8 - (1/4penwd * sqrt 2);
  3473.     filldraw fullcircle scaled 1.0penwd shifted(x7,y7);
  3474.     filldraw fullcircle scaled 1.0penwd shifted(x9,y9);    
  3475.     p = z5{left}..z8;
  3476.     draw p;
  3477.     z10 = point .17 of p;
  3478.     draw z10{curl2}..{left}z6;
  3479. endchar;
  3480. beginchar(225,1.15twd#+rm#,ht#,.45ht#); ".t+.th";
  3481.     italcorr rm#+.5twd#; path p;
  3482.     pickup frame_pen;
  3483.     z1=(0,h); z2=(w,h);
  3484.     draw z1--z2;
  3485.     lm := w-rm;
  3486.     x3 = good.x .7lm; y3=h;
  3487.     z4 = (x3,.72h);
  3488.     z6 = (.55lm,.3h);
  3489.     z7 = (lm,.4h);
  3490.     draw z3--z4;
  3491.     vardef dwna(expr y) = xpart direction 1 of (z4{curl0}..tension1.1..
  3492.     (1/2penwd,y)..z6{right}..{curl0}z7) < 0 enddef;
  3493.     z55 = (1/2penwd,solve dwna(y4,y6));
  3494.     p =  z4{curl0}..tension1.1..z55..z6{right}..{curl0}z7;
  3495.     draw p;
  3496.     z8 = p intersectionpoint ((x3,.65h)--(x3,0));
  3497.     hdif := y3-y8;
  3498.     z9 = (x4,y4-hdif);
  3499.     z11 = (x6,y6-hdif-.05h);
  3500.     z13 = (x9+penwd,y9-penwd);
  3501.     vardef dwnb(expr y) = xpart direction 1 of (z9{curl0}..tension1.1..
  3502.     (1/2penwd,y)..z11{right}) < 0 enddef;
  3503.     z10 = (1/2penwd,solve dwnb(y9,y11));
  3504.     z12 = (lm,y10);
  3505.     draw z9{curl0}..tension1.1..z10..z11{right}..z12{up}..{curl0}z13;
  3506.     draw z8--z9;
  3507. endchar;
  3508. beginchar(226,1.1twd#+brm#,ht#,.25ht#); "Sanskrit jn";
  3509.     italcorr brm#+.3twd#;
  3510.     frame;
  3511.     z5 = (w-brm,.45h);
  3512.     z6 = (.4(w-brm),.7h);
  3513.     z9 = (.2(w-brm),.6h);
  3514.     z7 = (.6(w-brm),.18h);
  3515.     z8 = (1/2penwd,.05h);
  3516.     z10 = (.7(w-brm),-.22h);
  3517.     draw z5{curl.2}..z6{left}..z9{down}..z7{down}..tension1.6
  3518.       ..z8{up}..tension1.3..{curl0}z10;
  3519. endchar;
  3520. beginchar(227,1.1twd#+brm#,ht#,.2ht#); "h+.r";
  3521.     italcorr brm#+.55twd#;
  3522.     lm := w-brm; pickup frame_pen;
  3523.     z1=(0,h); z2=(w,h);
  3524.     draw z1--z2;
  3525.     x3 = good.x .8lm; y3 = h; z4 = (x3,.75h);
  3526.     z5 = (1/2penwd,.65h); z6 = (.4lm,.4h);
  3527.     z7 = (.58lm,.08h); z8 = (.9lm,.27h);
  3528.     z9 = (.85lm,-.3h);
  3529.     z10 = (1/2penwd,.2h);
  3530.     z11 = (1.1lm,-.05h);
  3531.     draw z3--z4{left}...z5{down}..z6;
  3532.     draw z9{curl0}..tension1.2..z10{up}..z6..tension1.2 and 1.0..
  3533.       z8{down}..z7{down}..{curl.5}z11;
  3534. endchar;
  3535. beginchar(228,1.75twd#+brm#,ht#,0); ".dh+y";
  3536.     italcorr brm#;
  3537.     path p;
  3538.     lm := 1.1twd;
  3539.     frame;
  3540.     x9 = good.x .85lm; y9=h;
  3541.     z10 = (x9,.72h);
  3542.     z5 = (1/2penwd,.47h);
  3543.     z6 = (.7lm,1/2penwd);
  3544.     z7 = (lm,.23h);
  3545.     draw z9--z10;
  3546.     p = z10{left}..tension.9..{down}z5..tension.9..{right}z6..{up}z7;
  3547.     draw p..z6;
  3548.     z8 = (w-brm,.3h);
  3549.     draw z7{dir-30}..{curl.3}z8;
  3550. endchar;
  3551. beginchar(229,13/17twd#+.25twd#+rm#+penwd#,ht#,.6ht#); ".d+.d";
  3552.     italcorr rm#+.5twd#; path p;
  3553.     pickup frame_pen;
  3554.     z1=(0,h); z2=(w,h);
  3555.     x3 = good.x w-rm-1.5penwd; y3 = h;
  3556.     z4 = (x3,.74h); z5 = (.25twd+1/2penwd,.6h);
  3557.     draw z3--z4;
  3558.     z6 = (x3+1/2penwd,.36h);
  3559.     z7 = (1/2(.25twd+x3),1/7h);
  3560.     z8 = (1/2penwd,.45h);
  3561.     p = z4{left}..z5{down}..z6{down}..z7{left}..z8;
  3562.     draw p;
  3563.     z10 = (x3,y6);
  3564.     z11 = (x3,0);
  3565.     z12 = p intersectionpoint (z10--z11);
  3566.     addto currentpicture also currentpicture shifted (0,y12-h);
  3567.     draw z1--z2; 
  3568. endchar;
  3569. beginchar(230,1.9twd#+brm#,ht#,0); "k+n+y";
  3570.     italcorr brm#;
  3571.     frame;
  3572.     lm := 23/16twd;
  3573.     x5 = good.x .55lm; y5=h;
  3574.     z6 = (x5,0); draw z5--z6;
  3575.     z7 = (x5,.76h);
  3576.     z8 = (.7(w-brm),.64h);
  3577.     z9 = (.6(w-brm),.45h);
  3578.     z15 = (x3,.45h);
  3579.     draw z9{dir-70}..{curl.5}z15;
  3580.     draw z7{right}..z8..tension1.3..z9;
  3581.     z10 = (x5,.6h);
  3582.     z11 = (1/2penwd,.55h);
  3583.     z12 = (x5,.5h);
  3584.     draw z10..tension1.3..z11{down}..tension1.3..z12;
  3585.       y13 := good.y .15h; x13 := x5;
  3586.         y14 := y13 - .75penwd; x14 := 1.25penwd;
  3587.         filldraw fullcircle scaled 1.5penwd shifted(x14,y14);
  3588.         z16 = (x14,y13);
  3589.         draw z13--z16;
  3590. endchar;
  3591. beginchar(231,2.1twd#+brm#,ht#,0); "k+r+y";
  3592.     italcorr brm#;
  3593.     frame;
  3594.     x5 = good.x twd; y5=h;
  3595.     z6 = (x5,0); draw z5--z6;
  3596.     z7 = (x5,.76h);
  3597.     z8 = (.75(w-brm),.63h);
  3598.     z9 = (.65(w-brm),.4h);
  3599.     z15 = (x3,.45h);
  3600.     draw z9{dir-70}..tension1.1..{curl.3}z15;
  3601.     draw z7{right}..z8..tension1.3..z9;
  3602.     z10 = (x5,.5h);
  3603.     z11 = (1/2penwd,.65h);
  3604.     z12 = (.3x5,.25h);
  3605.     draw z7{left}..z11;
  3606.     draw z10--z12;
  3607. endchar;
  3608. beginchar(232,1.1twd#,ht#,0); "/(gh+n)";
  3609.     pickup frame_pen;
  3610.     z1 = (0,h); z3 = (w,h);
  3611.     draw z1--z3;
  3612.     path p;
  3613.     z5 = (w,.55h);
  3614.     z6 = (.55w,.72h);
  3615.     z10 = (.18w,.58h);
  3616.     p = z5{curl0}..tension1.1..z10{up}..{curl0}z6;
  3617.     draw p;
  3618.     z7 = point 1.7 of p;
  3619.     z8 =(.26w,h);
  3620.     vardef yup(expr y)= xpart direction 1 of (z7{curl0}..(1/2penwd,y)..
  3621.       {right}z8) < 0
  3622.     enddef;
  3623.     z9 = (1/2penwd,solve yup(y7,y8));
  3624.     draw z7{curl0}..z9..{right}z8;
  3625.     low_n(.3w,.2h);
  3626. endchar;
  3627. beginchar(233,1.2twd#,ht#,0); "/(g+r)";
  3628.     path p;
  3629.     pickup frame_pen;
  3630.     z1 = (0,h); z2 = (w,h);
  3631.     lm := 1.1twd;
  3632.     draw z1--z2;
  3633.     z3 = (1.1w,.5h);
  3634.     z4 = (.75w,.25h);
  3635.     draw z3--z4;
  3636.     z5 = (.25lm,h);
  3637.     z6 = (x5,.3h);
  3638.     z7 = 2/3[z5,z6];
  3639.     z8 = z7 shifted (.1lm,0);
  3640.     z9 = (1/2penwd,y6+.08h);
  3641.     p = z5..z8{down}..z6{left}..z9{up};
  3642.     z10 = point 2.4 of p;
  3643.     draw p..z10;
  3644. endchar;
  3645. beginchar(234,1.1twd#,ht#,0); "/(Sanskrit jn)";
  3646.     pickup frame_pen;
  3647.     z1 = (0,h); z2 = (w,h);
  3648.     draw z1--z2;
  3649.     z5 = (w,.45h);
  3650.     z6 = (.4w,.7h);
  3651.     z9 = (.2w,.6h);
  3652.     z7 = (.6w,.18h);
  3653.     z8 = (1/2penwd,.05h);
  3654.     z10 = (.7w,-.22h);
  3655.     draw z5{curl.2}..z6{left}..z9{down}..z7{down}..tension1.6
  3656.       ..z8{up}..tension1.3..{curl0}z10;
  3657. endchar;
  3658. beginchar(235,1.2twd#,ht#,0); "/('n+c)";
  3659.     pickup frame_pen;
  3660.     z1 = (0,h); z2 = (w,h);
  3661.     draw z1--z2;
  3662.     y5 = good.y .3h; x5 = 1/2penwd;
  3663.     z6 = (.63w,y5);
  3664.     z9 = (.55w,y5);
  3665.     z7 = (.35w,.1h);
  3666.     z8 = (w,.4h);
  3667.     draw z5--z6; draw z9..z7{down}..tension1.1..{curl.1}z8;
  3668.     z10 = (.1w,.8h);
  3669.     z11 = (.4w,.65h);
  3670.     z12 = (.2w,.5h);
  3671.     z13 = (w,y11);
  3672.     z14 = (1/2penwd,.53h);
  3673.     draw z10..z11{down}..z12{left}..z14;
  3674.     draw z11{dir-20}..z13;
  3675. endchar;
  3676. beginchar(236,twd#,ht#,0); "/(tr)";
  3677.     pickup frame_pen;
  3678.     z1 = (0,h); z2 = (w,h);
  3679.     draw z1--z2;
  3680.     z5 = (w,.5h);
  3681.     z6 = (1/2penwd,.65h);
  3682.     z7 = (.3w,.25h);
  3683.     draw z5{dir120}..z6;
  3684.     draw z5--z7;
  3685. endchar;
  3686. beginchar(237,twd#+brm#,ht#,.45ht#); "d+g+r";
  3687.     italcorr brm#; path p; path q;
  3688.     pickup frame_pen;
  3689.     z1=(0,h); z2=(w,h);
  3690.     x3=good.x w-brm; y3=h;
  3691.     z4=(x3,.72h);
  3692.     z5=(1/2penwd,.5h);
  3693.     z6=(x3,0.27h);
  3694.     z7= z6 + (.3thick*(dir(rot)));
  3695.     z8= (x7,-.45h);
  3696.     draw z1--z2; draw z3--z4;
  3697.     p =  z4{left}..{down}z5..tension1.2..{dir30}z6;
  3698.     draw p;
  3699.     draw z7--z8;
  3700.     fill ((0,0)--(quartercircle rotated -45 & halfcircle rotated 45)--cycle)
  3701.     scaled (1.6*thick) shifted (z6 + .3thick*(dir rot));
  3702.     z9 = point 1.35 of p;
  3703.     z10 = (.5x9,y9-.5h);
  3704.     z12 = (1/2penwd,y10+.08h);
  3705.     q = z9{down}..tension1.3..z10{left}..z12{up};
  3706.     z13 = point 1.3 of q;
  3707.     draw q..{curl.2}z13;    
  3708.     z14 = (x7,.5[y8,y7]);    
  3709.     z15 = (.4x7,y8);
  3710.     draw z14--z15;
  3711. endchar;
  3712. beginchar(238,twd#+brm#,ht#,.45ht#); "d+gh+r";
  3713.     italcorr brm#; path p; path q;
  3714.     pickup frame_pen;
  3715.     z1= (0,h); z2= (w,h);
  3716.     draw z1--z2;
  3717.     x3= good.x w-brm; y3=h;
  3718.     z4 =(x3,.74h);
  3719.     z5= (.22(w-brm),.61h);
  3720.     z6= (x3,.42h);
  3721.     z7= (x3,-.3h);
  3722.     z8= (x3,0);
  3723.     draw z3--z4;
  3724.     p= z4{left}..tension1.4..z5{down}..tension1.4..{curl.3}z6--z7;
  3725.     draw p;
  3726.     z9= point 1.25 of p;
  3727.     z10= (.15x3,0);
  3728.     z11= (.5x3,.15h);
  3729.     q= z8{curl0}..z10{up}...{right}z11;
  3730.     draw q;
  3731.     z12= point 1.7 of q;
  3732.     vardef yup(expr y)= xpart direction 1 of (z12{curl0}..(1/2penwd,y)
  3733.                ..{right}z9) < 0
  3734.     enddef;
  3735.     z13= (1/2penwd,solve yup(y12,y9));
  3736.     draw z12{curl.2}..z13..{right}z9;
  3737.     z14 = (x3,0);
  3738.     z15 = (.35x3,-.45h);
  3739.     draw z14--z15;
  3740. endchar;
  3741. beginchar(239,1.4twd#+brm#,ht#,.1ht#); "d+r+y";
  3742.     italcorr brm#;
  3743.     frame; path p;
  3744.     x10=good.x 5/6twd; y10=y1;
  3745.     z7=(x10,.72h);
  3746.     z5=(1/2penwd,.53h);
  3747.     z6=(x10,0.27h);
  3748.     z8=(x10-.15twd,y6);
  3749.     z9=(x3,.15h);
  3750.     draw z10--z7;
  3751.     p = z7{left}..tension.9..{down}z5..tension.9 and 1.1..{dir30}z6..
  3752.     z8..tension.9..{curl.5}z9;
  3753.     draw p;
  3754.     z11 = point 3.2 of p;
  3755.     z12 = (.2x3,-.2h);
  3756.     draw z11--z12;
  3757. endchar;
  3758. beginchar(240,1.1twd#+brm#,ht#,.1ht#); "dh+n";
  3759.     italcorr brm#;
  3760.     path p;
  3761.     tframe;
  3762.     z5=(x3,.5h);
  3763.     z6=(.65x3,.65h);
  3764.     z10=(.18x3,.5h);
  3765.     p=z5{curl0}..z10{up}...{right}z6;
  3766.     draw p;
  3767.     z7= point 1.7 of p;
  3768.     z8=(.26x3,h);
  3769.     vardef yup(expr y)= xpart direction 1 of (z7{curl0}..(1/2penwd,y)..
  3770.       {right}z8) < 0
  3771.     enddef;
  3772.     z9=(1/2penwd,solve yup(y7,y8));
  3773.     draw z7{curl0}..z9..{right}z8;
  3774.     low_n(.3(w-brm),.1h);
  3775. endchar;
  3776. beginchar(241,1.1twd#,ht#,0); "/(dh+n)";
  3777.     pickup frame_pen;
  3778.     path p;
  3779.     z5 = (w,.55h);
  3780.     z6 = (.55w,.72h);
  3781.     z10 = (.18w,.58h);
  3782.     p = z5{curl0}..tension1.1..z10{up}..{curl0}z6;
  3783.     draw p;
  3784.     z7 = point 1.7 of p;
  3785.     z8 =(.26w,h);
  3786.     vardef yup(expr y)= xpart direction 1 of (z7{curl0}..(1/2penwd,y)..
  3787.       {right}z8) < 0
  3788.     enddef;
  3789.     z9 = (1/2penwd,solve yup(y7,y8));
  3790.     draw z7{curl0}..z9..{right}z8;
  3791.     x3 = w;
  3792.     low_n(.3w,.2h);
  3793. endchar;
  3794. beginchar(242,1.1twd#,ht#,0); "/(dh+r)";
  3795.     path p;
  3796.     pickup frame_pen;
  3797.     z5=(w,.5h);
  3798.     z6=(.65w,.65h);
  3799.     z10=(.18w,.5h);
  3800.     p=z5{curl0}..z10{up}...{right}z6;
  3801.     draw p;
  3802.     z7= point 1.7 of p;
  3803.     z8=(.26w,h);
  3804.     vardef yup(expr y)= xpart direction 1 of (z7{curl0}..(1/2penwd,y)..
  3805.       {right}z8) < 0
  3806.     enddef;
  3807.     z9=(1/2penwd,solve yup(y7,y8));
  3808.     draw z7{curl0}..z9..{right}z8;
  3809.     z11 = (w,.4h);
  3810.     z12 = (0,0);
  3811.     draw z11--z12;
  3812. endchar;
  3813. beginchar(243,twd#,ht#,0); "/(p+t)";
  3814.     pickup frame_pen;
  3815.     z1 = (0,h); z2 = (w,h);
  3816.     draw z1--z2;
  3817.     z5 = (1/2penwd,h);
  3818.     z6 = (w,.5h);
  3819.     x7 = x5+.17w;
  3820.     y7 = y6+.14h;
  3821.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  3822.     z9 = (1/2penwd,.62y6); z10 = (0.45w,0);
  3823.     draw z6{left}..tension1.2..z9{down}..{curl0}z10;
  3824. endchar;
  3825. beginchar(244,1.3twd#,ht#,0); "/('s + c)";
  3826.     pickup frame_pen;
  3827.     z1 = (0,h); z2 = (w,h);
  3828.     draw z1--z2;
  3829.         z5= (w,.5h);
  3830.     z7= (.45w,.67h);
  3831.     z8= (1/2penwd,.55h);
  3832.     z9= (.8x7,h);
  3833.     draw z8--z7{right}..z9{left}..{right}z7;
  3834.     y6= good.y .33h; x6= .23w;
  3835.     z10= (.85w,y6);
  3836.     z11= (.5w,.15h);
  3837.     z12= (w,.5h);
  3838.     z13= (.6w,y6);
  3839.     draw z6--z10;
  3840.     draw z13..z11{down}..{curl.1}z12;
  3841.     draw z7--z5;
  3842. endchar;
  3843. beginchar(245,1.3twd#,ht#,0); "/('s + r)";
  3844.     pickup frame_pen;
  3845.     z1 = (0,h); z2 = (w,h);
  3846.     draw z1--z2;
  3847.         z5= (w,.5h);
  3848.     z7= (.45w,.67h);
  3849.     z8= (1/2penwd,.53h);
  3850.     z9= (.8x7,h);
  3851.     draw z8--z7{right}..z9{left}..{right}z7;
  3852.         z6=(w,.38h);
  3853.         z10=(.45w,.2h);
  3854.     draw z5--z10;
  3855.     draw z7--z5;
  3856. endchar;
  3857. beginchar(246,1.3twd#,ht#,0); "/('s + v)";
  3858.     pickup frame_pen;
  3859.     z1 = (0,h); z2 = (w,h);
  3860.     draw z1--z2;
  3861.         z5= (w,.5h);
  3862.     z7= (.45w,.67h);
  3863.     z8= (1/2penwd,.55h);
  3864.     z9= (.8x7,h);
  3865.     draw z8--z7{right}..z9{left}..{right}z7;
  3866.         z6=(w,.5h);
  3867.         z10=(.47w,.28h);
  3868.         z11=(w,.5h);
  3869.         draw z6{curl.3}..tension1.3..z10{down}..tension1.2..{curl.3}z11;
  3870.     draw z7--z5;
  3871. endchar;
  3872. beginchar(247,1.8twd#+brm#,ht#,0); ".s+.t+y";
  3873.     italcorr brm#;
  3874.     frame; path p;
  3875.     lm := 1.0twd;
  3876.     x5 = good.x .7lm; y5=h;
  3877.     z8 = (x5,.6h);
  3878.     z7 = (x5+1/2penwd,.2h);
  3879.     draw z5--z8;
  3880.     vardef dwn(expr y) = xpart direction 1 of (z8{curl0}..tension1.2..
  3881.       (1/2penwd,y)..tension1.1..{curl0}z7) < 0 enddef;
  3882.     z55 = (1/2penwd,solve dwn(y8,y7));
  3883.     p = z8{curl0}..tension1.2..z55..{curl0}z7;
  3884.     draw p;
  3885.     z13 = point 0.45 of p;
  3886.     z14 = (penwd,h);
  3887.     z15 = (1/2penwd,.73h);
  3888.     draw z14..z15{down}..{curl.3}z13;
  3889.     z9 = (.58x3,.33h);
  3890.     z10 = (x3,.4h);
  3891.     z11 = .4[z8,z5];
  3892.     z12 = (.65x3,.88y11);
  3893.     draw z9{dir-60}..tension1.1..{curl.2}z10;
  3894.     draw z11{right}..z12..tension1.1..z9;
  3895.     pickup penrazor scaled subthick;
  3896.     draw (1/2penwd,h)--z8;
  3897. endchar;
  3898. beginchar(248,5/6twd#+brm#,ht#,.35ht#); "d+d+v";
  3899.     italcorr brm#+.2twd#;
  3900.     pickup frame_pen;
  3901.     path p; path q;
  3902.     z1 = (0,h); z2 = (w,h);
  3903.     x3 = good.x w-brm; y3 = h;
  3904.     z4 = (x3,.4h);
  3905.     z5 = (1/2penwd,.22h);
  3906.     z6 = (x3+penwd,1/2penwd);
  3907.     z7 = (x3,y6);
  3908.     y8 = -.3h; z8 = z7+whatever*dir305;
  3909.     draw z1--z2; 
  3910.     p = z4{curl0}..tension1.2..{down}z5..tension1.1..{curl.2}z6;
  3911.     draw p;
  3912.     q = z6..tension1.2..z7{down}..tension1.3..{curl0}z8;
  3913.     draw q;
  3914.     z9 = (x3,.73h);
  3915.     z10 = (1/2penwd,.56h);
  3916.     z11 = point 0.5 of p;
  3917.     draw z3--z9;
  3918.     draw z9{left}..{down}z10..{curl.3}z11;
  3919.     z12 = point 1.4 of p;
  3920.     z13 = point 1.5 of q;
  3921.     z14 = (.15(w-brm),y13);
  3922.     draw z12..z14{down}..tension1.2..{curl.5}z13;
  3923. endchar;
  3924. beginchar(249,1.2twd#+brm#,ht#,.35ht#); "d+dh+v";
  3925.     italcorr brm#+.1twd#; path p; path q;
  3926.     pickup frame_pen;
  3927.     lm := 5/6twd;
  3928.     z1=(0,h); z2=(w,h);
  3929.     x3=good.x w-brm; y3=h;
  3930.     z4=(x3,.72h);
  3931.     z5=(w-brm-lm+1/2penwd,.53h);
  3932.     z6=(x3,0.27h);
  3933.     z7= z6 + (.3thick*(dir(rot+90)));
  3934.     y8=-.3h; z8=z7+whatever*dir305;
  3935.     draw z1--z2; draw z3--z4;
  3936.     p = z4{left}..tension.9..{down}z5..tension.9 and 1.1..{dir30}z6;
  3937.     draw p;
  3938.     fill ((0,0)--(quartercircle rotated -45 & halfcircle rotated 45)--cycle)
  3939.     scaled (1.6*thick) shifted (z6 + .3thick*(dir rot));
  3940.     z9 = .4[z7,z8];
  3941.     z11 = point 1.6 of p;
  3942.     z10 = (w-brm-.8lm,y9);
  3943.     q = z11..z10{down}..tension1.1..{curl.2}z9;
  3944.     draw q;
  3945.     z12 = point 0.7 of q;
  3946.         z13 = (.15(w-brm),.45h);
  3947.     draw z12{curl.1}..tension1.2..z13{right};
  3948.     draw z7--z8;
  3949.     z16 = point 1.15 of q;
  3950.     z14 = point 1.6 of q;
  3951.     z15 = (1/2penwd,y14-1/2penwd);
  3952.     draw z16{curl.2}..tension1.2..z15{down}..tension1.3..{curl.5}z14;
  3953. endchar;
  3954. beginchar(250,1.3twd#+brm#,ht#,0); "s+r";
  3955.     italcorr brm#;
  3956.     frame; path p; path q;
  3957.     z5 = (1/2penwd,.65h);
  3958.     z6 = (.6twd,0);
  3959.     p = z5{down}..tension1.1..{curl0}z6;
  3960.     z7 = point .2 of p;
  3961.     z8 = (.424twd,h);
  3962.     q = z8{curl0}..tension1.1..{left}z7;
  3963.     z9 = point .65 of q;
  3964.     z10 = (w-brm,y9);
  3965.     draw p; draw q; draw z9{dir-30}..z10;
  3966.     z11 = (x3,.42h);
  3967.     z12 = (.55x3,.1h);
  3968.     draw z11--z12;
  3969. endchar;
  3970. beginchar(251,1.8twd#+brm#,ht#,0); ".d+r+y";
  3971.     italcorr brm#; path p;
  3972.     lm := 13/17twd+.25twd;
  3973.     frame;
  3974.     z23 = (lm,h);
  3975.     z24 = (x23,.74h); z5 = (.25twd+1/2penwd,.6h);
  3976.     z6 = (x23+1/2penwd,.36h);
  3977.     z7 = (1/2(.25twd+x23),1/7h);
  3978.     z8 = (1/2penwd,.45h);
  3979.     draw z23--z24;
  3980.     p = z24{left}..z5{down}..z6{down}..z7{left}..z8;
  3981.     draw p;
  3982.     z10 = point 2.2 of p;
  3983.     z9 = (w-brm,.35h);
  3984.     draw z10{dir-30}..{curl.3}z9;
  3985.     z14 = point 2.9 of p;
  3986.     z11 = (x14,y14-1/2penwd);
  3987.     z12 = (x11-.35twd,y11-.45h);
  3988.     z13 = (x11+.32twd,y11-.25h);
  3989.     pickup sub_pen;
  3990.     draw z11--z12;
  3991.     draw z11--z13;
  3992. endchar;
  3993. beginchar(252,2.0twd#+brm#,ht#,0); "k+t+r+y";
  3994.     italcorr brm#;
  3995.     frame;
  3996.     lm := 23/16twd;
  3997.         xm := .1twd;
  3998.     x5 = good.x (xm + .55lm); y5=h;
  3999.     z6 = (x5,0); draw z5--z6;
  4000.     z7 = (x5,.75h);
  4001.     z10 = (x5,.75h);
  4002.     z11 = (1/2penwd,y10);
  4003.     draw z10--z11;
  4004.     z12 = (x5,.5h);
  4005.     z13 = (.65xm + .35x5,y12);
  4006.     z14 = (.5xm + .5x5,0);
  4007.     draw z12---z13..{curl0}z14;
  4008.     z8 = (.77(w-brm),.6h);
  4009.     z9 = (.65(w-brm),.4h);
  4010.     z15 = (x3,.45h);
  4011.     draw z9{dir-70}..{curl.5}z15;
  4012.     draw z7{right}..z8..tension1.3..z9;
  4013.     z17 = (x6-.35twd,y6-.45h+1/2penwd);
  4014.     z16 = (x6+.32twd,y6-.25h+1/2penwd);
  4015.     pickup sub_pen;
  4016.     draw z6--z16;
  4017.     draw z6--z17;
  4018. endchar;
  4019. beginchar(253,0,ht#,.25ht#); "sub-r";
  4020.     pickup sub_pen;
  4021.     z1=(-.35twd,mb-.45h);
  4022.     z2=(0,mb-1/2penwd);
  4023.     draw z1--z2;
  4024. endchar;
  4025. beginchar(254,.9twd#+brm#,ht#,0); "p+r";
  4026.     italcorr brm#;
  4027.     frame;
  4028.     z5=(penwd,h);
  4029.     z6=(w-brm,.53h);
  4030.     x7=x5+.15(w-brm);
  4031.     y7=y6-.08h;
  4032.     draw z5..tension1.4..z7{z6-z5}..tension1.2..z6;
  4033.     pickup sub_pen;
  4034.     z11=(w-brm,.45h);
  4035.     z12=(.1twd,1/2penwd);
  4036.     draw z11--z12;
  4037. endchar;
  4038. ligtable "." : "." =: ";";
  4039. end.
  4040.  
  4041.